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Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiring stu- 
dy and a thorough under- 
standing of Forth. 



Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 



Code and examples con- 
form to fig-FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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Synonyms and Macros, Part I by Victor H. Yngve 

A ROT by any other name — is it the same? Investigation into this seemingly 
innocuous subject leads to productive new insights into how Forth works, and 
how to make it work for you. 

Synonyms and Macros, Part II by Victor H. Yngve 

This tool creates high-level macro definitions with the readability of colon 
definitions and some increase in execution speed. Installing macro tools is a great 
way to learn about the insides of your Forth implementation! 

Forth Timer Macros by Iram Weinstein 

We asked for readers' uses of Forth macros — what better than tools to improve 
the performance of the rest of your code? When the engine is installed and you're 
ready to fine tune, look for these in your desk-side toolbox. 

Improved Forth-83 DO LOOP by Dennis L. Feucht 

The parsimony of the two-item DO LOOP is possible in Forth-83 at the 
expense of slightly more complex compile-time procedures. This im- 
plementation requires minimal modification to the machine-dependent, 
run-time words of previous Forth-83 DO LOOPs. Metacompiling words 
are also provided. 

A Forth I/O Technique: Pseudo-Interrupts by Ed Schmauch 

Using interrupts allows a CPU to do background processing concurrently with 
I/O, but requires greater hardware know-how. Here is an intermediate technique 
which uses simple polling and allows background processing like interrupts. 

An Approach to Reading Programs 
by Kim Harris & Michael Ham 

What increases productivity, reduces development time and contributes to 
programmer training? Formal "code inspections" facilitate the difficult task of 
truly comprehending a program, and help programmers learn from their 
colleagues' techniques and skills. 

Volume VI Index by Julie Anton 

Trying to remember where in Forth Dimensions that article or piece of code was 
printed, or if a particular subject was covered? This subject/author/title index 
was prepared as a reader service. 

Number Editing Utility by Ken Takara 

Crashproofing an application often means shielding the program from bad 
numeric input and providing in-progress editing features to the user. Vectored 
execution makes this technique powerful and general enough for many uses. 
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Forth 
AppHcation 

Research 



The aim of the Journal is to provide a reliable source 
of state of the art techniques and applications of Forth 
to scientific and industrial problems. The Journal's edi- 
torial review board is drawn from the foremost workers 
in Forth in the U.S., Europe and Canada. Past issues 
had in-depth coverage of such topics as Robotics, Data 
Structures, Forth Computers, Real-Time Systems, and 
Extended Address Computing. The Journal is open to 
all new work in Forth as well as the entire range of 
threaded interpretive languages and Forth-like systems. 



Subscription Rates, Vol. 3: Corporate/Institutional $100, 
Individual $40. Outside N. America add $20 for airmail 
charges. Prepaid subscriptions only, in US funds on a 
US bank, or by international money order, payable to 
Journal of Forth Application and Research, Inc.. Back 
issues available at $15 each, add $5 for foreign airmail. 
Send all orders to: Journal of Forth Application and 
Research, P.O. Box 27686, Rochester, NY 14627 USA. 



Volume 3 

The Journal is beginning its third year of publication. 
Published quarterly, the Journal contains applications 
and techniques papers, technical notes, review papers, 
algorithms, book reviews, and conference abstracts. 

Renew your subscription for Volume 3 of the Journal 
of Forth Application and Research. Here's what you'll find 
in Issue #1: 

— Forth-Based Software for Real-Time Control of a 
Mechanically-Scanned Ultrasonic Imaging System 

— Fast and Flexible Forth Programming in a Femto- 
second Laser Lab 

—Stack Frames and Local Variables 
—Should VARIABLE Be an Immediate State-Sensitive 
Word? 

— Readable and Efficient Paramet Access via Argument 
Records 

— Run-Time Error Handling in Forth 

Proceedings 
Rochester Forth 
Conference 

1985 Rochester Forth Conference Proceedings 

The Proceedings of the 1985 Rochester Forth Confer- 
ence will appear as a Special Issue of Volume 3 of the 
Journal. The conference had a theme of software 
management and engineering and how to improve 
software productivity. Invited papers discuss a space 
shuttle experiment using Forth, the automation of an 
airport with Forth, and Forth in the development of 
MAGIC/L, and HFORTH: A business applications 
language. Proceedings available as a single issue, $20. 



Order Form 

□ Subscriptions Volume 3, 1985 Issues 1-4 

□ Institutions/Corporate $100 □ Individuals $40 

□ Subscriptions Volume 4, 1986 Issues 1-4 

□ Institutions/Corporate $100 □ Individuals $40 

□ Subscriptions outside N. America please add 
$20 per volume for airmail. 

□ Vol. 1 #1 Robotics $15 

□ Vol. 1 #2 Data Structures $15 

□ Vol. 2 #1 Forth Machines $15 

□ Vol. 2 #2 Real-Time Systems $15 

□ Vol. 2 #3 Enhancing Forth $15 

□ Vol. 2 #4 Extended Addressing $15 

□ Back issues outside N. America please add $5 
per issue for airmail. 

□ Four or more back issues $12 each issue. 

□ Four or more issues outside N. America $16 
each (includes airmail). 

□ Rochester Forth Conference Proceedings $20 

□ Please send further information on the Institute's 
publications and activities. 

Name 

Address 



Amount Enclosed $ 

VISA/MC Exp. 

Signature 
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Addressing the Marketplace 



Dear Marlin, 

"The biggest (and most common) 
mistake that can be made in a com- 
puter design is that of not providing 
enough address bits. . 

This deserves to go down as one of 
the classic statements of the century. 
Although originally referring to com- 
puter hardware, I believe that it applies 
just as well to the Forth virtual mach- 
ine. Elsewhere in the same volume, I 
found the startling information that on 
the average, for a given price range, 
machines increase their (virtual) 
memory address by one bit per year, 
and their physical memory address by 
one bit per two years. 

It is already the case that machines 
with a 64K memory are becoming 
restricted to the very low end of the 
marketplace. Increasing numbers of 
people are buying machines with much 
larger memories, and if they can't 
make effective use of this memory with 
Forth, they will use something else. 

Of course, various thirty-two-bit 
Forths are available commercially, but 
no provision was made in the Forth-83 
Standard for addresses to be other than 
sixteen bits. Although the next revision 
of the standard will undoubtedly do 
something about this, it could well be 
too late, and we will have a 
proliferation of incompatible solutions 
to the problem. 

So I think it would be good to have 
some discussion about this, here in 
Forth Dimensions (which reaches the 
widest Forth audience), and maybe get 
some concensus. I am going to open 
the discussion with a proposal. I don't 
mind getting shot down in flames, so 
long as we are at least considering the 
question. 

1. Existing (working) standard pro- 
grams should still produce correct 
results, as far as possible. 
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2. A cell on the parameter or return 
stack will be large enough to hold an 
address. This will be at least sixteen 
bits, but the actual size will be 
implementation dependent. It will be 
available in a constant named LSIZE 
(with the L standing for "long"). 

3. @ and ! will still transmit sixteen 
bits. This way, sequences such as 

DO ... I @ ... 2 + LOOP 

will still work. 

4. If more than sixteen bits are 
available in a stack cell, @ will sign- 
extend. A new operator u@ will fetch 
sixteen bits but will supply high-order 
zeroes. This is consistent with the 
existing set of unsigned operators. On 
sixteen-bit Forths, U@ will be an alias 
for @. 

5. New operators L@ and U will 
transmit a full stack cell (i.e., LSIZE 
bits). 

6. Existing double operators (e.g., 
2SWAP and D+) will still operate on two 
stack cells. 

7. A compilation address will stay at 
sixteen bits. 



This last point (at least!) is debat- 
able. It would preclude allocating very 
large arrays within the dictionary, so 
that the dictionary can remain within 
64K. An alternative would be to 
increase a compilation address to 
LSIZE. This, however, would expand 
the dictionary considerably in those 
implementations where LSIZE is greater 
than sixteen. A further possibility is to 
make the decision implementation 
dependent, in which case we would 
need yet another fetch-and-store 
operation (for compilation addresses) 
and another constant giving the length 
of a compilation address. I think my 
suggestion is the simplest. 
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Another headache concerns arith- 
metic operations on certain well- 
known processors, where the designers 
have inflicted us with a basically 
sixteen-bit design, but kludged to pro- 
vide a longer address (the term "seg- 
ment" sounds nice but doesn't change 
the facts). The most "efficient" 
solution would be for +, *, etc. to 
remain sixteen-bit operations even 
where LSIZE is longer. Thus, high-order 
bits of the "result" would be invalid. I 
think we should reject this approach, 
even at the expense of an execution- 
time penalty — the elegance of Forth 
would be compromised, and address 
arithmetic would be a nightmare! It's a 
pity, but that's probably the best we 
can do with awkward, underlying 
hardware. 

Happy Forthing, even to those with 
8086/8088s. 

Michael Hore 
Numbulwar, NT 
Australia 

Reference: 

1. C.G. Bell and J.C. Mudge, "The 
Evolution of the PDP-11," in D.P. 
Siewiorek, C.G. Bell and A. Newell 
(eds.), Computer Structures: Principles 
and Examples (McGraw-Hill, 1982), p. 
776. 



More Applications, Please! 

Dear Mr. Ouverson, 

As a newcomer to Forth, I find it 
interesting that most of the discussion 
in Forth Dimensions is technical (e.g., 
the best CASE or LEAVE construct). 
Where are the articles on application 
programs in Forth? Possibly it is 
because hackers (myself included) en- 
joy working on small system utilities 
more than writing application pro- 
grams. 

Thankfully, you have published sev- 
eral good application programs. Three 
articles were especially interesting: 

r " -.- » 
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Macronautics 



We had a hunch our readers would 
benefit from macros back when we 
first published Jeffrey Soreff's article 
(Forth Dimensions V/5). Mirabile 
dictu! Macros reappear in this issue in 
a number of places: one letter from a 
reader shares two macros with us to aid 
program legibility; an article uses the 
technique to obtain benchmarks of 
Forth words; and from the University 
of Chicago, Professor Victor Yngve 
delivers a different method for creating 
macros and proposes an innovative use 
of them — but be sure to read his 
"Synonyms" first. Afterwards, dig out 
Soreff's original article and the follow- 
up by Don Taylor (VII/ 1), compare 
them, use the techniques, draw some 
conclusions and send your written 
results to us. And who will be the first 
to share his tookit of macros with the 
FIG community? 

With this issue, a new coordinator 
will be reporting on the international 
network of FIG chapters. John Hall 
has stepped down from the position in 



order to spend time planning this 
year's FIG convention and to spend 
more time with his duties as a member 
of the FIG Board of Directors. Michael 
Ghormley will be charging ahead with 
the chapter work now, and is already 
working with the individual chapter 
coordinators. Mike brings abundant 
energy and creativity to his post, and 
we look forward to working with him. 

FORML's annual conference at 
Asilomar, on California's Monterey 
peninsula, is fast approaching. For 
those of you haven't yet attended one, 
this is an intimate conference for ad- 
vanced Forth practitioners. Its size per- 
mits close interaction between attend- 
ees, many of whom are very experien- 
ced Forth programmers with tech- 
niques to share and proposals for open 
consideration. Presentation of a paper 
is no longer required of all attendees, 
though most still participate fully. (In 
addition to a complete schedule of 
meetings, full participation includes 
walks through windswept trees over- 



looking the Pacific Ocean; conference 
grounds filled with deer, racoons and 
sand dunes; and tasty meals. A few | 
non-programmer family members or 
spouses are usually present just to en- 
joy the locale.) For details about the 
November 29 - December 1 event, call 
the FIG Hotline at 408-277-0668. 

We are experimentally providing an 
index to advertisers in this issue. The 
table of contents lists its location — we 
hope this makes it easier for you to 
find the particular vendor or product 
that was advertised in here some- 
where. . . Finally, this issue is going to 
press just before the seventh annual 
Forth National Convention, so cover- 
age of that event will be delayed until 
next issue. I look forward to renewing 
old friendships there but if we don't get 
the chance, then come to the FORML 
conference in November! 



— Marlin Ouverson 
Editor 



(Letters continued from page 5) 



"Simple Modem I/O," "Quicksort 
and Swords" and "A Forth 
Spreadsheet." I hope you can get John 
S. James to continue to write on the 
modem I/O words. Perhaps he could 
develop code words for an interrupt- 
driven input buffer, and then go on to 
develop a complete Forth 
communications program with file 
transfer, modem control, everything! 
This is a large project to put in the 
public domain. I hope someone is 
willing to write the necessary series of 
articles. 

Thank Craig A. Lindley for his 
Forth spreadsheet, and please keep 
publishing the application programs. 
Thanks for your effort in publishing 
Forth Dimensions. 

Sincerely, 

Ramer W. Streed 

North Mankato, Minnesota 

I 
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It Would Have Been Grand . . . 

Dear FIG, 

I always enjoy Henry Laxen's col- 
umn. After reading the YACS ["Yet 
Another Case Statement," VI/6, 
VII/ 1] tutorials a few times, I tried to 
implement the code on my Kaypro 
using LMI's Z80 FORTH, version 3. 
Though this version complies with the 
83 Standard, ] does not work as 
described in Mr. Laxen's column. I 
replaced line four with the following 
code segment: 



BEGIN >MARK !CSP 1 

STATE ! INTERPRET 

?DUP WHILE > RESOLVE REPEAT 



and it now works. 

I was also glad to see macros ad- 
dressed again (Forth Dimensions 



6 



VII/ 1). The article by Jeffrey Soreff 
(V/5) is one of my favorite Forth ar- 
ticles. I have found the following mac- 
ros to be helpful in making my code 
more readable by eliminating 0= IF 
and = WHILE. 

: IF-NOT COMPILE = 
[COMPILE] IF ; IMMEDIATE 

: WHILE-NOT COMPILE = 
[COMPILE] WHILE ; IMMEDIATE 

I would like to thank the staff of the 
Forth Interest Group for all its great 
work and services. 

Sincerely, 

Ed Petsche 
Greenport, New York 

Editor's note: For more on the "Case 
of the Right Bracket, " see the letters 
section of our last issue. 

> . :v : , | 
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Application Tutorial 

Universal Text File Reader 




John S. James 
Santa Cruz, California 

File incompatibilities still cause seri- 
ous problems. For example, files up- 
loaded from different operating sys- 
tems may have different ways of mark- 
ing the end of a line, and the software 
available may not be able to list them 
with legible results. Even files pro- 
duced on the same operating system 
may contain non-standard codes, inter- 
nal to certain word processors, for 
such functions as tabs and underline. 
And you may occasionally want to 
read files not intended as text files; to 
see, for example, what operator and 
error messages an object program con- 
tains. 

This tutorial shows you how to write 
a simple program to solve most of 
these problems — one to read almost 
any text file and do the best it can to 
give a reasonable result. And it meets 
the design goal of not asking the oper- 
ator anything about what kind of file is 
being listed. (The operator may not 
know!) 

We use F83 here to show how to get 
started with sequential file I/O and 
how to turn your programs into DOS 
commands which can be useful outside 
the Forth environment. 

What the Program Does 

Here are several common file-com- 
patibility problems and ways the pro- 
gram handles them: 

• If the parity bit is set on any char- 
acter, the program clears and ig- 
nores it. 

• The program cannot know what 
character, if any, indicates end of 
file. So it ignores them all and lists 
everything, until the file read oper- 
ation detects end of file. Usually, 
the final block is filled out with 
end-of-file characters, or nulls, 
blanks, or something else fairly 
harmless. 

• Different end-of-line indicators 
must be handled. Common ones 
are a carriage return followed by a 
linefeed, a carriage return alone, 



and a null alone. Word-processor 
"document" files sometimes have 
no end-of-line indication, except at 
the end of paragraph. We will take 
carriage return, null and linefeed 
as meaning end of line, and we will 
then supply a carriage return and 
linefeed. However, more than two 
carriage returns in a row will not 
be supplied — sacrificing triple 
spacing — to avoid problems such 
as multiple nulls in certain files. 
And if a carriage return is followed 
in the original file by a linefeed, 
that linefeed will be ignored, so 
that single-spaced text files will not 
come out as double spaced. 

We won't reformat word-pro- 
cessor document files without hard 
returns. Almost all terminals will 
scroll automatically when neces- 
sary. Words may be split at end of 
line, but they will still be readable. 
See note below about a better way 
to format text to various line 
lengths. 

• This program ignores backspace, 
to avoid loss of information 
caused by unintended backspace in 
non-text data. 

• We change formfeed to linefeed, to 
avoid waste of paper when printing 
object programs or other non-text 
files. 

• We ignore other non-printable 
characters. However, you might 
want to print them as dots, or as 
some other character, to show 
where they were. 

The Code 

This particular implementation is for 
the well-known F83 system. It should 
run on any PC-compatible machine, 
and should not be difficult to convert 
to any Forth system on any computer, 
providing you know how to open a se- 
quential file, read records and detect 
end of file. We chose not to go through 
Forth I/O — the word BLOCK — 
because many Forth systems don't 
provide any way to read an incomplete 
final block of a file not created for a 
Forth environment. 



The first screen isolates most of the 
code which is specific to F83. If you 
aren't using F83, you will need to write 
whatever words are necessary for 
sequential I/O on your system. Or you 
could do it the easy way and use BLOCK 
if your system can read partial blocks 
which may be at the end of a file. 

Notice that we did avoid the work of 
opening a file from scratch, by using 
an OPEN which this Forth system 
already provides for access to files of 
screens. Since that OPEN was intended 
only for random I/O, we had to 
initialize one more field in the file 
control block; that's the purpose of the 
word FILE-RESET. 

Incidentally, the word DOS-EMIT in 
the first screen is almost identical to the 
Forth word EMIT supplied by the 
system. But DOS-EMIT uses the DOS call 
instead of the BIOS call to write a 
character to the screen. The practical 
difference is that with DOS-EMIT you 
can have the output printed by turning 
on the printer through DOS, by using 
whatever key or combination of keys 
your system provides for this purpose. 

The word ?out in the second screen 
filters the stream of characters and 
changes any which should be ignored 
to -1, which is not a possible ASCII 
value. Then it prints all except those it 
changed to -1. The first line of ?OUT 
allows any key to toggle a pause, so 
users can stop the display and have 
time to read the information before it 
scrolls off the screen. Users can end the 
listing with control-C. 

The variable LINES keeps count of 
multiple new lines in a row. After two, 
no more new lines are generated. We 
suppress additional new lines so that 
the program will behave reasonably 
even if there are strings of hundreds of 
carriage returns or nulls. LINES treats 
the linefeed character even more se- 
verely, suppressing it if even one new 
line has just occurred. The purpose is 
to prevent the normal carriage return 
and linefeed format from always 
generating double spacing. 

Incidentally, most programmers 
prefer more white space in their code 
than is shown here. This example has 
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PRIME FEATURES 

• Execute DOS level commands 
in HS/FORTH, or execute DOS 
and BIOS functions directly. 

• Execute other programs under 
HS/FORTH supervision, 
(editors debuggers file managers etc) 

• Use our editor or your own. 

• Save environment any time 
as .COM or .EXE file. 

• Eliminate headers, reclaim 
space without recompiling. 

• Trace and decompile. 

• Deferred definition, 
execution vectors, case, 
interrupt handlers. 




FORTH 



• Full 8087 high level support. 
Full range transcendentals 

(tan sin cos arctan logs exponentials) 

• Data type conversion and 
I/O parse/format to 1 8 
digits plus exponent. 

• Complete Assembler 

for 8088, 801 86, and 8087. 

• String functions - 

(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 

• Graphics & Music 

• Includes Forth-79 and Forth-83 

• File and/or Screen interfaces 

• Segment Management 

• Full megabyte - programs or data 

• Fully Optimized & Tested for: 
IBM-PC XT AT and JR 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 
compatibles!) 

• Compare 

BYTE Sieve Benchmark jan 83 
HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-1 40 sec 
FASTEST FORTH SYSTEM 

AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 

(TEN TIMES FASTER WHEN USING AUTO-OPT!) 

HS/FORTH, complete system only: $270. 
Visa Mastercard j^fr 

HARVARD 
SOFTWORKS 

P.O. BOX 69 
SPRINGBORO, OH 45066 
(513)748-0390 
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# 3 A-.FD08.BLK 

\ Universal text-file reader 18Aug85 JJ 

\ This screen has words specific to F83. 

V Note that we are relying on the F83 word OPEN . 

\ After you open a file with OPEN <nome> , the FCB address 

S will be in the F83 variable FILE . 

: DOS-EMIT < c -- ) 2 BDOS DROP ; \ DOS function call #2 
128 CONSTANT RECORD-LENGTH 

CREATE RECORD RECORD-LENGTH ALLOT \ Buffer for DOS to use 
: SET-RECORD \ -- ;P Tell DOS to use RECORD for buffer 

RECORD 26 BDOS DROP ; 
: FILE-RESET \ -- ;P Set sequential-record number in FCB 

O FILE S 32 ♦ C! ; 
: READ-RECORD ( -- ? ;P Read 128 bytes; O = success > 



FILE S 20 BDOS 
INITIALIZE-DOS 



1 <> 



\ '1' means no more data at all 
;P Prepare DOS for sequential I/O 



SET-RECORD 



FILE-RESET 



# 4 A-.FD08.BLK 

\ Transform input character, and maybe write it 18Aug85 JJ 

VARIABLE LINES \ Counter to prevent multiple lines 

: 7KILL \ cl -- c2 ;P Kill unwanted control characters 

DUP O <> OVER 10 <> AND OVER 12 <> AND OVER 13 <> AND 

IF ( None of these > DROP -1 THEN ; 
: TNEW-LINE \ Start a new line, if not more than 2 in a row 

LINES S 2 < IF 13 DOS-EMIT 10 DOS-EMIT 1 LINES ♦ t THEN ; 
: TOUT \ c -- ;P Maybe output the character 

KEY? < F83 > IF KEY DROP KEY DROP THEN \ Toggle pause 

127 AND \ Clear parity bit if set 

DUP 32 < IF 7KILL THEN \ Change unwanted char, to -1 
DUP 12 = IF DROP 10 THEN \ Change formfeed to linefeed 
DUP 10 = IF DROP -1 LINES @ 0= IF 7NEW-LINE THEN THEN 
DUP 13 = OVER O « OR IF DROP -1 ?NEW-LINE 

ELSE LINES t THEN \ New line if CR, or Null 
DUP -1 <> IF DOS-EMIT ELSE DROP THEN ; 



18Aug85 JJ 



# 5 A:FD08.BLK 
\ Main loop to read the file 
: READ-FILE \ -- ;P List the OPEN file. 
INITIALIZE-DOS LINES I 

BEGIN READ-RECORD WHILE \ There is more data 
RECORD RECORD-LENGTH OVER * SWAP 
DO I CS TOUT LOOP REPEAT ; 



S Optional F83 code for saving program to be used from DOS. 

\ To use the program, from DOS say LIST <filename> 

: BOOTUP < -- ) DEFAULT < to open <filename> for input ) 

READ-FILE BDOS C Return to DOS ) ; 
' BOOTUP IS BOOT 

: NEW-ERR ( n n £ -- > IF BDOS ELSE 2DROP THEN ; 
' NEW-ERR IS TERROR 
SAVE- SYSTEM LIST.COM 
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been packed more tightly to save space 
for publication. 

Turnkey Operation 

The second part of the last screen 
has optional code to make this 
program usable as a DOS command. 
The F83 word BOOT controls action of 
the system on startup; here it is set to 
open a filename given in the DOS com- 
mand line as a default input file, then 
to execute read-file to run the 
program, then to return to DOS. The 
F83 word IS provides a convenient way 
to change the meaning of certain other 
words in F83 (such as BOOT) which 
have been set up to allow this kind of 
re- vectoring. 

The word 7ERROR should also be re- 
vectored, since otherwise an attempt to 
list a non-existent file would leave the 
user in Forth, not in DOS. The system 
call BDOS returns control to DOS. 
The word NEW-ERR has a confusing 
stack effect; when there is no error it 
must dispose of three arguments, since 
other words in this system expect 
7ERROR to use three. But there is no 
need to drop these extra arguments in 
the case that BDOS is executed (when 
there is an error), since then the 
program is finished anyway. 

Notice that this program uses the old 
DOS calls (before hierarchical 
directories). Therefore, it will work 
with old versions of DOS, such as 1.1, 
as well as with all later versions. If you 
are using a later version of DOS, such 
as 2.1, note that the LIST command 
which this program creates cannot 
accept a pathname. It can list files in a 
hierarchical directory, either by having 
a copy of LIST.COM in the same 
directory as the file to be listed, or by 
using the DOS command PATH. And 
it can redirect its output into a file — 
which can prove useful for cleaning 
files before uploading if they have 
parity bits set or contain other non-text 
characters. 



Note on Formatting Text 

This tutorial derives from my 
computer-conferencing program 



"CommuniTree Second Edition," 
which needs to read files transmitted 
by phone from different operating 
systems, with or without hard returns, 
and displays them on terminals of 
different 'sizes. The program cannot 
ask what kinds of files they are; the 
same procedure must work in all cases. 

The biggest problem, which we 
ignored in this tutorial example, was 
determining when carriage returns are 
"hard." Tables, poetry, legal text with 
numbered lines, character graphics and 
other such material must preserve the 
existing line structure; all end-of-line 
indicators in the file must cause a new 
line in the output, so carriage returns 
are considered to be hard. But for 
listing straight text, which may have 
been sent with one line length and now 
may be formatted to another, the pro- 
gram should recompose the line 
endings until the end of paragraph. 

The solution chosen was to let the 
user set the terminal line length, not 
only to a usual range of values 
(20-132), but also to zero. Zero means 
to respect the existing line structure: 
make a new line at every end of line, 
and not otherwise (as the program 
example presented in this article does). 
Any non-zero line-length value will 
cause text to be reformatted, unless a 
paragraph break is indicated (by an 
end of line followed by either a blank 
or another end of line). 

For poetry, tables, etc., we advise 
users to start, every line with at least 
one blank, since lines beginning with a 
blank will not be reformatted onto 
previous lines. But since users won't 
always do so, the CommuniTree system 
comes up with the line length defaulted 
to zero. Since most users these days 
have the same terminal line length 
(eighty characters), and because those 
who don't can specify their line length, 
the only remaining problem concerns 
internal word-processor document files 
which have no end of line until the end 
of a paragraph. But most terminals 
scroll automatically if more than eighty 
characters are sent in a line, so the data 
isn't lost and the only problem is that 
words will be divided in the middle 
(i.e., wrapped incorrectly). Users can 



set their terminal line length to its ac- 
tual value (not zero) if this lack of 
proper word wrap bothers them. But 
since most upload programs provide 
end-of-line characters, the problem 
seldom arises. 

One final adjustment. On many 
terminals, if you format text to the full 
line length, there will be extra blank 
lines inserted in the printout after those 
lines which happen to go to their full 
length. Writing into the last position 
on the line causes an automatic scroll, 
as it should, but the terminal software 
isn't smart enough to suppress a single 
linefeed character which arrives 
immediately after the terminal has 
supplied its own new line. So we set the 
line length to one less than the user 
requests; eighty-column terminals use 
only seventy-nine. Users who notice or 
care can ask for eighty-one. 



References 

1. Microsoft Corporation, Disk 
Operating System Technical 
Reference, publ. by IBM Corpora- 
tion. This manual explains DOS 
calls. You can also find this infor- 
mation in various books about 
MSDOS or programming the IBM 
and compatibles. 

2. The F83 source code is an excellent 
source of information for the in- 
termediate or advanced student. 
All of the source is supplied with 
this public-domain system. The 
command VIEW <name> will show 
the screen where a word is defined; 
and then you can use the words A L 
to get to the "shadow" documen- 
tation screen. If you are running 
F83 but don't have the source files 
handy, the command SEE <name> 
provides a convenient decompila- 
tion. 
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FORTH 
IS NOW 



.Sieve 1.3s/pass 

.Compile 300 screens/ minute 

.Drop 1.82 us 

.Concurrent I/O @ 250K baud 

DEVELOP YOUR 
APPLICATIONS IN 
A TOTAL FORTH 
ENVIRONMENT. 



MICROPROGRAMMED BIT SLICE 
FORTH ENGINE 

.Microcoded forth kernel 
.Microcoded forth primitives 
.Multi-level task switching architecture 
for real time applications 
.Optional writable control store 

H. FORTH OPERATING SYSTEM 

.Hierarchical file system 
.Monitor level for program debug 
.Multi-user multi-tasking 
.Target compiler 
.I/O management 
.Forth 83 Compatible 

H4TH/01 OEM SINGLE BOARD 

.Floppy disk controller 

.2 channel SIO to 38. 2K baud 

.Calendar clock— 4HR backup 



.44KByte ram 200NS 

.32K Byte EPROM operating system 

. 1KX 32 microprogram memory 70ns 

H4TH/10 DESKTOP 

.Dual 0.8m Byte floppys 
.H4TH/01 processor 
.Three user slots 
.Two expansion slots 
.Power & cooling 

H4TH/20 DESKTOP 

. 10 m Byte Winchester 

.0.8 m Byte floppy 

.H4TH/01 processor 

.300K byte RAM expandable 2m byte 

.Three user slots 

.One expansion slot 

.Power & cooling 




A forth-engine consisting of a state-of-the-art integrated hardware/software 
system giving unsurpassed performance for professionals and their applications 
from a company that is totally dedicated to the forth concept and its implementation. 

HARTRONIX, Inc. 1201 North Stadem Drive Tempe, Arizona 85281 602.966.7215 
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Screen # 46 

( Usage: SYNONYM <new-name> <old-name> Forth-83 11/28/84 vhy ) 
1 

2 : SYNONYM ( ) 



3 CREATE ( make header for new word ) 

4 32 WORD FIND DUP ( old word found? ) 

5 IF SWAP , ( yes, compile its cfa ) 

6 IMMEDIATE ( make new word immediate ) 

7 1+ ( was old word immediate? ) 

8 IF DOES> @ EXECUTE ( yes, set new to execute ) 

9 ELSE DOES> STATE @ (no, set new to check state ) 

10 IF @ , ( and compile if compiling ) 

11 ELSE @ EXECUTE ( or execute if executing ) 

1 2 THEN 

1 3 THEN 

14 ELSE 1 ABORT" not found" ( old word not found ) 
1 5 THEN ; 



Screen ft 47 

( SYNONYM Glossary entry ) 

1 

2 

3 SYNONYM I 



4 A defining word used in the form: 

5 SYNONYM < new-name > < old-name > 

6 Create a dictionary entry for <new-name> so that when 

7 <new-name> is later used, it will have substantially the same 

8 action that <old-name> would have had. If <old-name> was 

9 immediate, the action will be immediate, otherwise not. 

10 During compilation, the action is to compile the same thing 

11 that <old-name> would have compiled. 
1 2 

13 



Synonyms and Macros 

Synonyms 

Victor H. Yngve 

Chicago, Illinois 
A startling thing beginners at Forth 
learn quite early is that a function can 
easily be renamed for convenience. For 
example, 

.S .STACK ; 
: edit EDIT ; 

Or even, to make a point with other 
beginners: 
: PRINT . ; 
: FETCH @ ; 

This is fine as far as it goes, and it is 
widely used. But the technique will not 
always work. Consider this attempt at 
defining a fig-FORTH R as R@ in a 
Forth-83 system, so as to make it easier 
to convert an old program to run on a 
new system: 

: R R@ ; 

This will not work, because the ex- 
ecution of R will place a return on the 
return stack, covering up the item 
wanted. 

Then how about 

: R COMPILE R@ ; IMMEDIATE 

This will work fine here, but the 
technique will only work while compil- 
ing; it cannot be used for the .S and 
edit examples, which are to be executed 
from the console. 

Consider the case of 
: -DUP COMPILE ?DUP ; IMMEDIATE 

This will work when compiling, but 
one would want it to work from the 
console, too, so try 

: -DUP ?DUP ; 

But this is less than optimal for a 
word that might be compiled into an 
inner loop, because it will run slower, 
on account of the extra nesting and un- 
nesting of the colon definition. In cases 
like this, neither method is completely 
adequate, since the choice of the best 
method of definition will depend on 
how the word is to be used. 

Note, too, that neither technique can 
be used for immediate words. For these 
one needs 

: ENDIF [COMPILE] THEN ; IMMEDIATE 

And if you don't happen to remem- 
ber whether the word you want to 



make a synonym of is immediate or 
not, you will have to look it up. Fur- 
thermore, for any words that are both 
immediate and operate on the return 
stack, it may be that none of these 
methods will work, and it is not at all 
clear how to define synonyms for 
them. 

One must conclude that the situation 
is less than satisfactory. For one and 
the same function, namely, simply de- 
fining a synonym or alias for a word, 
there are three different methods and 
they are all hedged by ifs and buts. It 
makes the language harder to learn and 
harder to use. 

The word SYNONYM presented here 
provides a single simple way for defin- 
ing synonyms. The usage of the word is 

SYNONYM < new-name > < old- 
name > 

A Forth-83-style glossary entry is 
provided on screen 47. 

A word defined by SYNONYM is func- 
tionally identical to the word it is a 
synonym of, and it runs just as fast. 
The only differences are that the com- 
pilation address obtained by tick (') will 




be different, and if this different com- 
pilation address is executed, it will run 
slower. And the new word will be 
marked immediate, even though it will 
have the same action — immediate or 
nonimmediate — as the original word. 
By means of synonym one can make a 
synonym for any word in the diction- 
ary. One can even make synonyms of 
synonyms, with no run-time penalty. It 
is actually possible to switch the names 
of two words (proving that the tech- 
nique is completely general): suppose 
two words, A and B, have actions X 
and Y. Then, using an intermediate 
name C, one can define 
SYNONYM C A 
SYNONYM A B 
SYNONYM B C 

Now A has the function Y, and B has 
the function X. 

When should this method of defin- 
ing synonyms be used? One can make a 
strong case for including this word in a 
system for its general utility and in or- 
der to rationalize and clean up one 
corner of Forth. Having the word in 
the system, it should always be used 
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DASH, FIND 
& ASSOCIATES 

Our company, DASH. KIND & ASSOCIATES, 
is in the business of placing FORTH Program- 
mers in positions suited to their capabilities. 
We deal only with FORTH Programmers 
and companies using FORTH. If you would 
like to have your resume included in our 
data base, or if you are looking for a 
FORTH Programmer, contact us or 
send your resume to: 

DASH, KIND & ASSOCIATES 

808 Dalworth, Suite B 
Grand Prairie TX 75050 
(214) 642-5495 

Committed to Excellence 



instead of the other methods for defin- 
ing synonyms. It produces synonyms 
that run faster than colon definitions, 
give no problems with the return stack, 
have the same immediate or nonim- 
mediate action of the original word, 
can always be executed from the con- 
sole or compiled, just as could the old 
word, and take up less space in mem- 
ory because their parameter fields con- 
tain just one address rather than two or 
three. 

A synonym facility has obvious 
utility for providing abbreviations of 
words for use at the console, as 
SYNONYM SYN SYNONYM 
SYN P PRINTER 
SYN D DUMP 

But the use of abbreviations on 
screens should generally be avoided in 
the interest of readability; they could 
make a program rather cryptic. 

The proper use of synonyms on 
screens can enhance the readability of a 
program. Normally, the names of the 
definitions that are part of an applica- 
tion program are carefully chosen to 
reflect their function relative to the ap- 
plication. But mixed in with these 
application-relative words are Forth- 
relative words like DUP and 2DUP, or @ 
and c@. Understanding the meaning of 
these relative to the application re- 
quires not only understanding the logic 
of the application program but also the 
particular way in which the application 
functions are mapped onto Forth. 
Thus, readability and understan- 
dability suffer. With the judicious use 
of synonyms, the logic of the applica- 
tion program can be written mainly in 
application-specific terminology, with 
the translation into Forth-relative 
words being given in a preamble con- 
taining colon definitions, synonyms 
and macros. Macros will be the topic 
of the second of these articles. 

I wonder, since there is no run-time 
penalty for using synonyms, if it would 
be possible or desirable to develop 
multi-purpose routines? For example, 
a routine might operate in single preci- 
sion or in double precision depending 
on which preamble is used, or on which 
vocabulary it is loaded under. Or a 
routine might sort bytes, words, 
double words, fields or pointers to 



strings. 

A synonym facility would also make 
possible the easy preparation of bilin- 
gual Forth systems for other languages, 
such as Portuguese, Turkish, French, 
Dutch or Finnish 1 . The synonyms 
listed on the translation screens would 
resemble the entries in a traveler's 
pocket dictionary: 
SYNONYM SI IF 

This might lead to new national stan- 
dards of Forth nomenclature in lan- 
guage areas where the political, linguis- 
tical and educational realities favor or 
even dictate the use of the local lan- 
guage. Remember that readability, like 
beauty, is in the eye of the beholder. 
This alone, independent of the other 
obvious merits of Forth as a teaching 
language, might give Forth an edge in 
the local schools over other languages, 
where changing the names of com- 
mands is not as easy. The translation 
kit screens could be preloaded in the 
system. Or, for the occasional applica- 
tion that needs the extra memory, 
synonyms not used by the application 
could simply be commented out before 
loading the conversion screens. 

The definition of SYNONYM on 
screen 46 is programmed entirely in 
Forth-83 and should be completely 
portable across Forth-83 systems. The 
routine provides a good exercise in the 
use of the defining-word technique in 
Forth. The programming is fairly 
straightforward, except that the em- 
bedding of DOES> twice in an IF . . . 
ELSE . . . then construct after a single 
CREATE may raise some eyebrows. It is 
perfectly legal, however, and works 
beautifully. It allows the single defin- 
ing word SYNONYM, with a single 
create, to make two different families 
of words: a family with the behavior of 
immediate words for synonyms of im- 
mediate words, and a family with non- 
immediate behavior for synonyms of 
nonimmediate words. This is necessary 
because the usage chosen of 
SYNONYM < new-name > < old- 
name > 

puts the new name first, as is done with 
colon (:), VARIABLE, CONSTANT and 

create, so it is not known which class 
the new word should belong to until 
after the new name field has been 
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m 

SYNONYM 



call to 
DOES> 
machine 
code 



words for 
immediate 
action of 
synonyms 



link 



colon 



words to 
compi le 
BRANCH 



c ;S 



|i2 



link 



c IF 



compiled 

into 

program 



c 1 



H 



link 



machine 
code for 
OBRANCH 



c OBRANCH 



offset 



■c OBRANCH 



offset 



i = immediate 
c = compilation address of 



SI 



IF 



Operation of a synonym of a nonimmediate word. The expression 

SYNONYM R R@ 

compiles into the dictionary the nonimmediate synonym definition of R in the third 
column. When R is encountered during compiling, the second DOES*- expression in 
SYNONYM (first column) is executed, which obtains the compilation address of R@ 
from the body of R and compiles it into the program (fourth column). This is the same 
result as when R@ is encountered while compiling. When R is encountered in the 
noncompiling state, the DOES*- expression obtains the compilation address of R@ from 
the body of R and executes it, just as if R@ had been encountered. 

Figure One 



in 

SYNONYM 



call to 

DOES> 

machine 

code 
words for 
non- 
immediate 
action of 
synonyms 



link 



machine 
code 
for R@ 



i 1 



R 



link 



c R@ 



compi led 

into 

program 



c R@ 



c R@ 



immediate 

compilation address of 



Operation of a synonym of an immediate word. The expression 

SYNONYM SI IF 

compiles into the dictionary the immediate synonym definition of SI in the third 
column. When SI is encountered during compilation, the first DOES*- expression in 
SYNONYM (first column) is executed, which obtains the compilation address of IF from 
the body of SI and executes it. This provides the immediate action of executing IF. The 
execution of IF compiles the compilation address of OBRANCH into the program (fourth 
column) and arranges for compiling a branch offset after it, the same as when IF is 
encountered while compiling. 

Figure Two 



created and the old word has been 
found in the dictionary. 

The routine first creates a name field 
and link field for the new word. Then, 
in the body (parameter field), it com- 
piles the compilation address (CFA) of 
the old word. Then in the code field it 
compiles the address of one of the two 
DOES> expressions in the defining 
word. Which one is compiled depends 
on whether or not the old word was im- 
mediate. There is an error exit in case 
the old word could not be found in the 
dictionary. 

The result is shown in the third 
column of Figure One for a synonym 
of the nonimmediate word R@, and in 
the third column of Figure Two for a 
synonym of the immediate word IF. 

The new word is made immediate so 
that the proper DOES> part of the de- 
fining word will always be executed 
when the new word is interpreted from 
the console or from a screen. If the old 
word was immediate, one of the 
DOES> expressions (the first one) will 
fetch the compilation address of old 
word from the body of the the new 
word and execute it. If the old word 
was not immediate, the other DOES> 
expression (the second one) will either 
fetch and compile the compilation 
address or it will fetch and execute the 
compilation address, depending on 
whether or not the interpreter is in the 
compile state. 

Thus, when the new word is inter- 
preted from the console or from a 
screen, the appropriate DOES> part 
will either compile or execute the old 
word, just as if the old word had been 
interpreted. And since what is 
compiled is the same as what would 
have been compiled had the old word 
been used, as shown in the figures, the 
run-time behavior will be identical to 
that of the old word. 

If the compilation address of the 
new word is obtained by tick and then 
either executed, or compiled and ex- 
ecuted later, one or the other of the 
DOES> expressions will fetch the com- 
pilation address of the old word from 
the body of the new word and execute 
it, just as if the compilation address of 
the old word had instead been obtained 
directly by tick; but because of the ex- 
ecution of the DOES> expression, it 
will run slower. 
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Synonyms and Macros 

Macros 




Victor H. Yngve 
Chicago, Illinois 

One of the many advantages of 
Forth is the ease with which new fea- 
tures can be added to the language. 
Described here is a facility that pro- 
vides Forth with high-level macro 
definitions 1 in addition to the colon 
definitions and code definitions al- 
ready available. This offers some addi- 
tional possibilities and tradeoffs. 

A high-level macro definition has the 
readability of a colon definition but, 
like a code definition, it provides some 
increase in execution speed (though not 
as much). It does not place a return on 
the return stack like a colon definition 
does, and this can sometimes be an ad- 
vantage. 

Except for this, a macro definition 
can be used like a colon definition. It is 
written in the same way, except the 
word MACRO is substituted for the 
colon, and END-MACRO is substituted 
for the semicolon. 

The expression 



MACRO <name> 



END-MACRO 



compiles a macro definition into the 
dictionary. When the word so defined 
is later interpreted from the console or 
from a screen, it will either be executed 
like a colon definition or, when com- 
piling, the compiled words of the mac- 
ro definition will be moved in-line into 
the body of the word being compiled. 

To take an example, some Forths 
include as a code definition primitive 
the word -ROT, which is the opposite of 
ROT in that when it rotates the top three 
elements on the stack, it leaves the top 
one the deepest. For Forths that do not 
have this word, the textbook way of 
defining it uses a colon definition: 

-ROT ROT ROT 

An alternative way would be to 
define it as a macro: 

MACRO -ROT ROT ROT END-MACRO 

When executed from the console, the 
three definitions of -rot all have the 




call to 
DOES> 
machine 
code 



words for 
executing 
macros or 
moving 
them into 
program 



;s 





i 4 
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u 


P 


link 
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B 


R 


A 


N 


C 


H 


link 




machine 
code for 
OBRANCH 



c DUP 



'c OBRANCH 



offset 



c DUP 



compiled 

into 

program 
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7 IF 



c DUP 



i C OBRANCH 
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c DUP 



immediate 
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. ?DUP 



Operation of a macro definition. The expression 

MACRO ?DUP DUP IF DUP THEN END-MACRO 
compiles into the dictionary the macro definition for ?DUP in the third column. When 
?DUP is encountered during compilation, the words in the DOES*- expression in MACRO 
(first column) move the compiled code for 

DUP IF DUP THEN 

from the body of the macro definition into the program (column four), which is the 
same result as if 

DUP IF DUP THEN 

had been encountered during compilation instead of ?DUP. 

Figure One 



Screen # 51 




( 


MACRO 1 MACRO 


LMI Z-80 FORTH 3.01 2/23/85 vhy ) 


1 ( 


Usage: MACRO <name> . 


.. END-MACRO ) ( Like : <name> ; ) 


2 : 


MACRO 


( start compiling a macro ) 


3 


?EXEC 


( -error if not executing ) 


4 


( !CSP ) 


( *moved to line 13 after HERE ) 


5 


CURRENT @ 


( -current vocabulary ) 


6 


CONTEXT @ 


( - ) 


7 


?CLR HASH 


( - ) 


8 


CONTEXT ! 


( -becomes context ) 


9 


BUILD 


( -create heading for macro ) 


1 


SMUDGE 


( -make macro unavailable ) 


1 1 


1 ALLOT 


( space for byte count in macro ) 


1 2 


HERE ( -- addr ) 


( for use by END-MACRO ) 


1 3 


!CSP 


( -save stack position for check ) 


1 4 


COMPILER 


( -start compiling words into macro ) 


1 5 


( ;CODE ... ) --> 


( *replaced by does> ... as follows ) 


Screen # 52 




( 


MACRO 2 MACRO cont . 


) 


1 


D0ES> ( pfa -- ) 


( move words of macro into place ) 


2 


STATE @ 


( is macro being used while ) 


3 


IF 


( compiling? ) 


4 


COUNT HERE 


( -- pfa+1 n here ) 


5 


OVER ALLOT 


( space for macro words in program ) 


6 


SWAP CMOVE 


( move macro words into program ) 


7 


ELSE 


( interpreting? ) 


8 


[ ' ] CR @ HERE ! 


( set colon definition cfa at HERE ) 


9 


COUNT SWAP OVER 


( -- n pfa+1 n ) 


1 


HERE 2+ 


( address for macro words ) 


1 1 


SWAP CMOVE 


( move macro words into definition ) 


1 2 


HERE 2+ + 


( address for ;S in definition ) 


1 3 


[ ' ] ; S SWAP ! 


( set ;S into definition ) 


1 4 


HERE EXECUTE 


( now execute this colon definition ) 


1 5 


THEN ; --> 
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FOR TRS-80 MODELS 1, 3, 4, 4P 
IBM PC/XT, AT&T 6300, ETC. 



Screen # 53 

( MACRO 3 END- MACRO ) 



1 

2 : 


END-MACRO ( addr 


( stop compiling a macro ) 


3 


?COMP 


( -error if not compiling ) 


4 


?CSP 


( -error if stack position not same 


5 


( COMPILE ;S ) 


( *replaced by the following ) 


6 


HERE 


( — start-addr end-addr ) 


7 


OVER - 


( calculate byte count ) 


8 


SWAP 1- C! 


( install count in new definition ) 


9 


IMMEDIATE 


( make new definition immediate ) 


1 


UNSMUDGE 


( -make new definition available ) 


1 1 


R> DROP 


( -prepare to exit from COMPILER ) 


12 


STATE OFF 


( -stop compiling macro words ) 


13 




( -exit from COMPILER ) 


1 4 
1 5 


IMMEDIATE 


( -make END-MACRO immediate ) 



same effect on the stack. The differen- 
ces come when they are compiled into a 
program to be run later. 

In the case of the code definition for 
-ROT, the compilation address of -ROT 
is compiled into the program. (We as- 
sume here the usual fig-FORTH type 
of implementation.) Then, when the 
program is run, the address interpreter 
transfers control to the machine code 
of the definition, which is run. This is 
the fastest. 

In the case of the colon definition 
for -ROT, the compilation address of 
the word is again compiled into the 
program. But this time when it is run, 
the address interpreter must first nest 
down by placing a return on the return 
stack, corresponding to the colon. 
Then it must execute the body of the 
colon definition, which means execut- 
ing the primitive ROT twice. Then it 
must retrieve the return off the return 
stack, nesting back up, corresponding 
to the semicolon. This is the slowest. 

In the case of the macro definition of 
-ROT, the compilation address of -ROT 
is not compiled into the program. In- 
stead, the compilation addresses of ROT 
ROT from the body of the macro are 
compiled. This takes up more room in 
the program, but when it is run, the 
nesting down and up are eliminated. 
The speed of this is intermediate be- 
tween the code definition and the colon 
definition. 

The macro facility has few restric- 
tions. Anything that can be program- 
med as a colon definition that results in 
position-independent code in the body 
of the definition can be programmed as 
a macro. That means that even such 
constructs as 



IF . . . ELSE . . . THEN 

and 

DO . . . LOOP 

can be included in a macro if the Forth 
implementation uses relative branch 
addresses (offsets). Not all Forths do. 
To find out whether your implementa- 
tion compiles position-independent 
code, compile 

: TRIAL IF DROP THEN ; 
: TRIAL IF DROP THEN ; 

If the code is position independent, a 
memory dump will show that the two 
compiled definitions are identical ex- 
cept for their link fields. In particular, 
the branch addresses will be offsets, 
and will be the same, probably 0004. 

Macros can be embedded in macros 
to any level desired. For example, one 
Forth has primitives for DNEGATE, D + , 
OR and = , while D-, do = and D= are 
defined as colon definitions. These lat- 
ter could be defined instead as macros: 

MACRO D- DNEGATE D+ END-MACRO 
MACRO DO = OR 0= END-MACRO 
MACRO D = D- DO = END-MACRO 

When D= is used in a program, it 
would compile not the compilation ad- 
dress of D = , but the compilation ad- 
dresses of 

DNEGATE D+ OR = 

So we see that macros compile in- 
line code, even when nested, and with 
that comes a speed advantage. But, like 
colon definitions, they also bring the 
same advantages of structured pro- 



WHICH ONE? 

Which microcomputer word pro- 
cessor lets you create and edit 
without retyping, but won't slow 
down your creative process? 
Knows when to capitalize the first 
letter while replacing one phrase 
with another? Can outdent as well 
as indent? Will do typesetting at 
your command, even with propor- 
tional characters, right justifica- 
tion and tabbed columns? Lets 
you use the same (extra-capacity) 
data disks on IBM PC and TRS-80? 
And eases your learning with 
common-sense keystrokes. Help 
menus, good examples and a pro- 
fessionally authored manual? 

Hint: it can integrate to communi- 
cate from home to office, and will 
interface with a database for form 
letters, data tables, and more! 

It's the professional's word pro- 
cessor for your IBM PC, Compaq, 
or TRS-80 Model 1,3 or 4: 

F0RTHWRITE 

In 



With an unusually powerful set of 
tools and an unusually easy way of 
helping you to use them. 

The total software environment for 
IBM PC/XT, TRS-80 Model 1, 3, 4 
and close friends. 

• Personal License (required): 

MMSFORTH V2.4 System Disk $179.95 

(TRS-80 Model 1 requires lowercase, DOEN, 1 40~track drive.) 

•Personal License (additional modules): 
FORTHCOM communications module .... $ 49.95 

UTILITIES 49.95 

GAMES 39.95 

EXPERT-2 expert system 69.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS (PC only. 128K req.) 99.95 
FORTHWRITE word processor 99.95 

• Corporate Site License 
Extensions tram $1,000 

• Bulk Distribution . . . from $500/50 unit*. 

• Some recommended Forth books: 

STARTING FORTH (programming) 19.95 

THINKING FORTH (technique) 15.95 

BEGINNING FORTH (re MMSFORTH) . . . 16.95 
Shipping/handling & tax extra. No returns on software. 

Ask your dealer to show you the world of 
MMSFORTH, or request our free brochure. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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BRYTE I 
FORTH 1 

INTEL 1 
8031 1 

: micro- 
controller: 




FEATURES 

-FORTH-79 Standard Sub-Set 
-Access to 8031 features 
-Supports FORTH and machine 

code interrupt handlers 
-System timekeeping maintains 
time and date with leap 
year correction 
-Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 



gramming in the source code of the 
program. This brings benefits in ease 
of programming, in readability and in 
ease of program maintenance. 

When should a macro be used? 

A macro definition should be used to 
provide the structured programming 
advantages of a colon definition where 
a colon definition cannot be used for 
some reason. For example, a colon 
definition inside a loop cannot use I 
and J to access the loop indices, be- 
cause the return placed on the return 
stack by the colon definition would 
interfere. In such cases, the only 
recourse has been to program the 
words of the colon definition explicitly 
in the interior of the loop. This may 
introduce considerable clutter into the 
loop that the colon definition would 
have removed if it could have been 
used. With a macro, one can have the 
in-line code that is needed, while at the 
same time retaining the advantages of 
structured programming. 

As discussed in the previous article 
on synonyms, macros can also be used 
to help increase the readability, under- 
standability and maintainability of a 
program, for it becomes possible to 
write the logic of an application in 
application-relative words, with most 
Forth-relative words removed to a pre- 
amble by means of colon definitions, 
macros and synonyms. 

A macro definition should always be 
used instead of a colon definition for 
routines of two or more words when 
execution speed considerations out- 
weigh the extra bytes of the in-line code 
produced. To get an initial idea of the 
speed tradeoff, some timing tests were 
carried out. In the implementation 
used, 0, = and 0= were all defined as 
code definition primitives. The speed 
of the code definition o= was then 
compared with an equivalent macro 
definition 



MACRO MO : 



END-MACRO 



•:■ and with an equivalent colon definition 

| : :0= = ; 

| The execution times came out to be 

•:■ almost exactly in the ratio of 1 : 2 : 4, 

?: with the macro definition saving about 



a minute of execution time per million 
iterations over the colon definition 
(using a 4 MHz Z80 system). This was 
the time spent nesting down and com- 
ing back up. The timings and the ratios 
might be quite different for different 
processors and different Forth imple- 
mentations, especially for processors 
better adapted to coding the Forth in- 
ner interpreter than is the Z80. 

This means that the macro facility 
has a potential for speeding up pro- 
grams by speeding up their frequently 
executed inner loops that contain colon 
definitions. Simply recode the colon 
definitions as macros. It would also be 
worthwhile to examine the other words 
used in the loop to see whether they 
have been implemented as primitives or 
as colon definitions. For example, in 
one Forth, 0<> is a primitive, while in 
another it is a colon definition. Re- 
define as macros all that are colon 
definitions. 

Of course, the user could achieve the 
same speed increase by simply recoding 
his loop by hand as a long string of 
primitives. But he would lose the read- 
ability and ease of programming and 
maintenance provided by the struc- 
tured nature of Forth. 

A macro facility gives Forth imple- 
mentors some extra flexibility by pro- 
viding another possibility besides colon 
and code definitions for sequences like 

= NOT 
< NOT 
AND NOT 
SWAP DROP 
ROT ROT 
OVER OVER 



and so on. One of the advantages of 
using macros over code definitions in 
an implementation of Forth is that they 
are high level. This means that it would 
be easier to move the implementation 
to another processor. 

The use of macros might be par- 
ticularly significant in a Forth imple- 
mentation built around a hardware 
Forth machine that has only a few 
dozen words coded in microcode. It 
would provide another option besides 
colon definitions for the rest of the 
words. 
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A macro facility can play a part in a 
kit to allow programs written in one 
dialect of Forth to run in a system im- 
plementing another dialect. Here, 
speed considerations and noninterfer- 
ence with the return stack would pro- 
vide important advantages. In one 
program of this sort, an overall speed 
penalty of roughly 50% has been 
reported 2 . A recoding using macros 
and synonyms should reduce the penal- 
ty substantially. 

A macro definition, like a colon 
definition, can contain one or more 
words, or even none. That means a 
one-word macro could be used in place 
of a synonym. That is not normally ad- 
visable, however. As a rule of thumb, 
always use a synonym to replace a 
colon definition with one word in it, 
and a macro to replace a colon defini- 
tion with two or more words in it. 

It is instructive to compare the dif- 
ference between macros and syno- 
nyms. The action of a synonym with 
regard to the immediate/nonimmed- 
iate distinction is deferred, where the 
action of a macro is not. Suppose we 
define SI as a synonym of IF: 

SYNONYM SI IF 

As we saw in Figure Two of the 
previous article, the compilation ad- 
dress of IF is compiled into the parame- 
ter field of SI even though IF is an 
immediate word. Then, when SI is used 
in a program, it has the same effect 
that using IF would have had. Namely, 
it executes as an immediate word and 
compiles a conditional branch into the 
program and arranges for a branch 
offset. This conditional branch will be 
executed at a still later time, when the 
program is run. 

But when if is compiled into a macro 
for ?DUP 

MACRO ?DUP DUP IF DUP THEN END- 
MACRO 

the IF will have its (immediate) action 
now, and a conditional branch with its 
branch address will be compiled into 
the macro definition in exactly the 
same way that it would be compiled 
into a colon definition. (See Figure 
One of this article.) Then, when the 



macro ?DUP is used in a program, the 
body of the macro definition compiled 
for ?DUP, including the conditional 
branch and its branch offset, is moved 
(copied) bodily into the program, so 
that the words of the macro definition 
can then be executed in line at a still 
later time when the program is run. 
Since the code is copied in this way to a 
different location to be run, it must not 
contain any absolute branch addresses, 
but only relative branch addresses (off- 
sets) if the implementation provides 
them, or else no branches at all. 

Although synonyms may be defined 
for immediate words as well as for 
nonimmediate words, there would be 
no advantage in using a macro defini- 
tion to replace a colon definition that is 
marked immediate, and this possibility 
is not provided for. 

The definitions shown in screens 
51-53 are fairly straightforward. First, 
MACRO compiles a name and link field 
for the heading of the macro defini- 
tion. It then allots space in the body of 
the definition (parameter field) for a 
count byte. Then the compiler is called, 
which starts compilation, and the 
words of the definition are compiled 
into the macro in the same way in 
which they would be compiled into a 
colon definition. 

Compilation is stopped by END- 
MACRO, which calculates the number of 
bytes of dictionary space used for com- 
piling the words of the macro, and 
places a length byte in the space pre- 
viously allotted for it. The length byte 
and the words of the definition then 
constitute a string that can be moved 
out of the definition as needed. 

The macro definition is then made 
immediate, so that the DOES> part of 
MACRO will be executed when the mac- 
ro is later interpreted from the console 
or a screen, and the words of the 
definition will then be moved out ap- 
propriately. END-MACRO then drops its 
own return off the return stack so that 
control will return to MACRO when END- 
MACRO is finished. Then compilation is 
stopped. When control returns from 
END-MACRO, the word DOES> alters the 
code field of the macro being defined, 
so that the does> part of MACRO will 
be executed later when the macro 
definition is used. 
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SOTA 

Computing 
Systems 
Limited lets 
you choose 
between either 
the versatile 
figFORTH model 
or the 

popular (mm 

79 Standard ' gBSEI 
Each version is 
available for a 
number ot pop 
ular compute! 
systems 
including 
the IBM PC, 
XT and AT 
(or compa- 
tibles); the 
TRS-eO 
Model 1, III 
and 4/4P, 
or any 

computer system 
running CP/M 
(version 2 x) 
or CP/M Plus 
(version 3 x) 
Whats more, 
SOTA doesn't 
require you 
to enter into 
any awkward 

When you order from 




TRS 



BO 



the basic FORTH 
system, you are 
free to make as 
many copies 
of the com- 
piled FORTH 
system as 
you please 
and 
distribute 
them as 
you wish 
FORTH 
from 
SOTA is the 
FORTH of 
choice for both 
the novice and 
experienced 
programmer 
Make it your 
choice nowi 
Order your 
copy today 

both the fig 
complete 



SOTA, 

model and 79 standard come 
with the following extra features at no 
additional charge: 

• full featured string handling • assembler • 
screen editor • floating point • double word 
eHtension set • relocating loader • beginner s 
tutorial • comprehensiue programmer's guide 

• eHhaustiue reference manual • unparalleled 

• technical support • source listings • 
• unbeatable price • 



ORDER FORM 



GENTLEMEN: Rush me my order 1 

□ Enclosed is my D check □ money-order 

□ Please bill my DVISA □ MasterCard I 

for $89 95 I 

Please send me: □ 79 standard FORTH □ figFORTH model 
for the 

O IBM PC Q XT □ AT (and compatibles) 

D TRS-80 Model I □ Model III □ Model 4 □ Model IP 

□ CP/M Version Zi a CP/M Plus (Version 3 x) 

For CP/M versions please note !> 1 /V formats only and 
please specify computer type: 



nfllTlE: 

STREET: 

CITY/TOWn: 
STATE: 



CARD TYPE: 
CRRD I10:__ 



ZIP: 

EXPIRY: 



SIGDRTUHE: 

213-1080 Broughton Street 
(Vancouver, British Columbia 



Canada ■ V6G 2RB 



ORDER 
TODAY 



State of the Aft since 1981 



Order by Mail or Phone 

(601 J 688-5009 



VISA 




Computin g Sy stems Limited 



Ifin. TRS-80 and CP/TI are registered trademark* ol International 
Bimnrsa Machine CoipoiaUon. Radio Shack and Digital Research 
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PolyFORTH II 

the operating system and 
programming language for 
real-time applications involving 
ROBOTICS, INSTRUMENTATION, 
PROCESS CONTROL, GRAPHICS 
and more, is now available for. . . 

IBM PC* 

PolyFORTH II offers IBM PC 
users: 

• Unlimited control tasks 

• Multi-user capability 

• 8087 mathematics co- 
processor support 

• Reduced application 
development time 

• High speed interrupt 
handling 

Now included at no extra cost: 
Extensive interactive GRAPHICS 
SOFTWARE PACKAGE! Reputed 
to be the fastest graphic package 
and the only one to run in a true 
multi-tasking environment , it 
offers point and line plotting, 
graphics shape primitives and 
interactive cursor control. 

PolyFORTH II is fully supported 
by FORTH, Inc.'s: 

• Extensive on-line 
documentation 

• Complete set of manuals 

• Programming courses 

• The FORTH, Inc. hot line 

• Expert contract programming 
and consulting services 

From FORTH, Inc., the inventors 
of FORTH, serving professional 
programmers for over a decade. 

Also available for other popular 
mini and micro computers. 
For more information contact: 

FORTH, Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, 
CA 90254 
213/372-8493 
RCA TELEX: 275182 
Eastern Sales Office 
1300 N. 17th St. 
Arlington, VA 22209 
703/525-7778 

'IBM PC is a registered trademark of International 
Business Machines Corp. 




Nothing is compiled at the end of the 
macro definition that would corres- 
pond to the ;S or other word that is 
compiled at the end of a colon defini- 
tion by the semicolon. 

When the macro definition is later 
interpreted from the console or screen 
in compile state, the DOES> part of 
MACRO moves the words of the macro 
definition as a block into the program 
being compiled, to be later executed in 
line rather than being called by nesting 
to a lower level as with a colon 
definition. 

In execute state, it moves the words 
of the macro definition into a tem- 
porary colon definition constructed at 
HERE and executes it. To this end, the 
address of the run-time code for colon 
(:) is obtained by ['] CR and set in place 
at HERE. Then the compiled macro 
words are moved into the following 
locations. Finally, the address of ;S is 
set in place at the end. Then this tem- 
porary colon definition is executed. 

These definitions of MACRO and END- 
MACRO have been checked out under 
Laboratory Microsystems Z-80 Forth 
3.01, a Forth-83 implementation. 
These words are, of necessity, imple- 
mentation specific, since they make 
assumptions about the return stack, 
and they address into the parameter 
field of the word being compiled. The 
assumptions they make, however, are 
not at all unusual. 

It was initially thought that MACRO 
and end-macro should be patterned 
after an array definition with CREATE 
using 1 and [ to start and stop compila- 
tion. But it soon developed that one 
would want more of the features of 
colon and semicolon in the definitions, 
so it seemed better to pattern them af- 
ter the definitions of colon and semi- 
colon found in the implementation, 
making the appropriate modifications. 

The lines on the screens with com- 
ments beginning with a single hyphen 
are copied (with LMI's permission) 
intact from the definitions of colon 
and semicolon. The lines with com- 
ments beginning with an asterisk show 
modifications. The rest of the lines 
have been added to implement the spe- 
cial features of MACRO and END- 

MACRO. 



Thus, to get the definitions to work 
on a different system, obtain a listing 
of the definitions of colon and semi- 
colon in your implementation, or at 
least obtain the compiled code using a 
decompiler or memory dump. Then 
identify the various functional parts of 
these definitions as implemented in 
your system, referring to the fig- 
FORTH model 3 - 4 , or other sources if 
needed for help in understanding them. 
Then make the modifications indicat- 
ed. This process should not be diffi- 
cult, and will be a learning experience 
if you don't yet know much about the 
Forth compiler. 

On sixteen-bit machines where it is 
advantageous or required to have ad- 
dresses start at sixteen-bit word boun- 
daries, change the 1 ALLOT on screen 51 
to 2 ALLOT and add 1+ after the DOES> 
on screen 52. (It is an interesting aspect 
of the Forth-83 Standard that 
SYNONYM could be written entirely 
within the standard, but MACRO and 
END-MACRO could not.) 
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Forth Timer Macros 




Iram Weinstein 
McLean, Virginia 

There comes a time in the develop- 
ment of many applications when every- 
thing works and attention turns to 
speeding up the run time. The first step 
in this phase of development is to 
determine which words contribute 
most to the running time of the ap- 
plication. A typical scheme for this 
might involve temporarily changing the 
definition of each word to be tested, as 
in Figure One, where NOW is a word 
that puts the current clock time on the 
stack. 

After recompiling and running the 
application with this augmented defini- 
tion of WORD, T will contain the ac- 
cumulated time used by WORD. Each 
word in the application can be tested in 
turn. The inconvenience of having to 
insert temporary modifications into 
colon definitions, combined with the 
desire to count the number of uses of 
each word in the application, led to 
screens 52-55 shown here. These 
screens define a set of Forth macros 
{Forth Dimensions V/5) that redefine 
the defining words : and ; to automati- 
cally insert the timing actions into any 
words subsequently compiled. The 
technique is similar to that used in the 
article "Tracer for Colon Definitions" 
{Forth Dimensions V/2). 

Screen 52 contains some words used 
to measure time. These will be system 
dependent. The words shown here are 
for the Commodore-64, which has an 
interrupt-driven, three-byte, "jiffy" 
counter at locations 160-162. Location 
162 is incremented once each interrupt 
cycle, approximately sixty per second. 
Only the lower two bytes of this count- 
er are used here, giving a timing range 
of over 1000 seconds. 

freeze and unfreeze prevent the 
overhead time consumed by the timing 
macros themselves from accumulating 
into the measured time. FREEZE moves 
the current time value into the variable 
VNOW, while unfreeze resets the jiffy 
clock back to its value when FREEZE 
was executed. In some systems, these 
words might be written to actually stop 



SCR 
i 
1 



6 
7 
8 
9 
10 
1 1. 
12 
13 
14 
lf5 



( WORD TIMER MACROS- 1) 

161 CONSTANT JIFFY 
VARIABLE VNOW 

I WIT NOW JIFFY ! ; 
FREEZE JIFFY @ VNOW 
UNFREEZE VNOW a J IFF' 
NOW VNOW DUP CQ 256 



-. ARRAY CREATE 
20 ARRAY *USES 
213 ARRAY TCUM 
VARIABLE WORDtt 
: INIT WORD* ! 
53 LOAD 54 LOAD 



* SWAP 1+ C@ + 



2* ALLOT DOES > SWAP 



#USES 40 ERASE TCUM 40 ERASE 
55 LOAD INIT INITNOW 



SCR # 53 
< WORD TIMER MACROS- 2) 
1 

2 1000 60 2CQNST ANT CONV < CONVERT TO MILLI-SECS) 



10 
1 1 
12 
13 
1 4 
1 5 



SCR 
( 
1 

2 F 

4 ( 

5 ( 
6 

7 

8 : 

9 
10 
1 1 
12 
13 
14 
15 



TTOT ( N D) TCUM @ CONV U*/ ; 

TAVG ( N D) DUP TTOT ROT #USES @ DUP 0= + 1000 SWAP U*/ ; 

.HEADER ." WORD" 13 SPACES ." ttUSES AVG. MSECS" ; 

FMT <# tt # # 46 HOLD #S #> : 

TYPE.R ( ADDR NCHAR NWIDTH ) OVER - SPACES TYPE ; 

-DATA ( N ) DUP ttUSEB @ 7 . R TAVB FMT 13 TYPE.R CR ; 



# 54 

WORD TIMER MACROS-3) 

IND : @ CONSTANT DOCOLON 
CHECK ( NFA NFA) 

EXAMINES WORD FOR DOCOLON IN CFA. IF FOUND, RETURNS NFA) 
ELSE, SCANS LINKAGE UNTIL DOCOLON IS FOUND) 
BEGIN PFA DUP CFA <§ DOCOLON = NOT 

IF LFA @ ELSE NFA 1 END I F UNTIL ; 

SUMMARY ( ) CR CR . HEADER CR 

[COMPILE! FORTH CONTEXT <3 & WORD* @ DO 
CHECK DUP ID. 

14 OVER C@ 127 AND - SPACES 

I 1- . DATA 

PFA LFA @ 
-1 +LOOP DROP 
INITNOW ; 



(Continued on page 25) 
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MasterFORTH 

Portable programming environment 




Whether you program on 
• , i ,he Macintosh, the IBM PC, 
an Apple II series, a CP/M sys- 
S_T-5£> tem, or the Commodore 64, 

your program will run un- 
changed on all the rest. ~~Z~^~Z.~ 
If you write for yourself, 5 ^= -—- 

MasterFORTH will protect = t = t 

your investment. If you write for 
others, it will expand your market- 

MasterFORTH is a state-o1- 
the art implementation of the 
Forth computer language. 
Forth is interactive - you have 
immediate feedback as you 
program, every step of the way. Forth is 
fast, too, and you can use its built-in macro 
assemblerto make it even 

C_/I/ M ™ faster - MasterFORTH's 
' relocatable utilities, 

transient definitions, and headerless code 
let you pack a lot more program into your 
memory. The resident debugger lets you 
decompile, breakpoint, and trace your 
way through most programming prob- 
lems. A string package, file interface, and 
full screen editor are all standard features. 

MasterFORTH exactly matches the 
Forth-83 Standard dialect described in 
Mastering Forth by Anderson and Tracy 
(Brady, 1 984). The standard package in- 
cludes the book and over 1 00 pages of 
supplementary documentation. 



MasterFORTH standard package 

Macintosh $125 

IBM PC and PC Jr. (MS DOS 2.1) 1 25 

Apple II, lli-. lie. He (DOS 3 3) 125 

CP.'M 2 x (IBM 3740 8") 1 25 

Cc m modore 64 100 

Extensions 

Floating Point ( 1 984 FVG standard) $60 

Graphics (Apple II series) 60 

Module relocator(with utility sources) — 60 

Printed source listing (each) 35 

Publications 

Mastering Forth (additional copies) $18 

Thinking Forth by Leo Brodie 16 

Forth-83 International Standara 15 

Rochester Bibliography, 2nded 15 

1984 Rochest0r Conference 25 

7984 FQFtML Conference 25 
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TaskFORTH 
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System at a micro price* 
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superfast compilation 
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simple debugging 
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★ Hierarchical file system with 
data base management 

★ Starter package $250. Full package $395. 
Single user and commercial licenses available 
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FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 

Available on 8" or 5% " disk 
in various formats under 
CP/M 2.2 or greater and 
5 'A" MS-DOS 

FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 



DEALER 
INQUIRIES 
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(Continued from page 19) 
and restart a real-time clock. NOW sim- 
ply places the frozen time value on the 
stack. INITNOW resets the jiffy timer. 

Screen 52 also contains the nonstan- 
dard word ARRAY. Other familiar but 
nonstandard words are D/S and u*/ 
{Forth Dimensions V/l). All other 
words are in Forth-79. Screen 52 fin- 
ishes by setting up two arrays to store 
the number of uses and accumulated 
time for up to twenty words, and defin- 
ing the variable WORD# used to count 
the number of words being timed. All 
these are initialized to zero by INIT. 

Screens 53-54 define a display of the 
measured timings. We will come back 
to these screens later. 

Screen 55 does all the work. The ob- 
ject is to modify the definition of each 
new word compiled, as shown in 
Figure Two. Since NEXTNO is an 
IMMEDIATE word, it executes at the 
compile time of WORDn with the result 
that the current value of WORD# is com- 
piled by LITERAL as an in-line literal. 
During later execution of WORDn this 
value is placed on the stack as input to 



Word 


#Uses 


Avg. Msecs 


T2* 


1 
1 


C A 1 C AAA 


TWO* 


1000 


1.516 


DUP + 


1000 


0.733 


2* 


1000 


0.650 


TASK 





0.000 




Summary 






Figure Three 





VARIABLE T 

: WORD NOW NEGATE T + ! 

< . . .original body of word . . . > 
NOW T + ! ; 

Figure One 

WORDn [NEXTNO] 
LITERAL MARKSTART >R 

< . . . original body of word . . . > 
R> MARKEND ; 

Figure Two 



SCR # 55 
< WORD TIMER MACROS-4) 
1 

2 : INC ( ADDR ) 1 SWAP +! ; 

3 : NEXTND ( N ) WORD* DUP @ SWAP INC ; IMMEDIATE 



7 
8 

10 

i 1. 
12 
13 
14 
15 



SCR 

1 



MARKSTART < N N> FREEZE DUP DUP ttUSES INC 

NOW NEGATE SWAP TCUM +! UNFREEZE ; 



MARKEND ( N - 
:: C COMPILE 3 



-) FREEZE NOW SWAP TCUM + ! UNFREEZE ; 
; IMMEDIATE 



10 
1 1 

! 2 
13 
1 4 
15 



C COMPILE 3 : C COMPILE 3 NEXTNO C COMPILE 3 LITERAL 
COMPILE MARKSTART COMPILE >R ; IMMEDIATE 

; COMPILE R> COMPILE MARKEND C COMPILE 3 ; ; IMMEDIATE 



( TIMER MACRO TESTING ) 

TASK ; 
2* 2* ; 
DUP+ PI If + : 
TWO* 2 * ; 

T2* 234 1000 DO 
DUP 2* DROP 
DUP DUP+ DROP 
DUP TWO* DROP 

LOOP DROP ; 



T2* SUMMARY 
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MARKSTART, which increments the ap- 
propriate element of #USES and sub- 
tracts the current time from the total 
time accumulated for woRDn. The 
word number is pushed onto the return 
stack and we are ready for execution of 
the main body of WORDn. Afterwards, 
the word number is recovered from the 
return stack and MARKEND adds the 
current time to the accumulated time. 

All that remains is to put together 
these timer words into macros that 
replace : and ;. Before redefining : the 
macro :: is defined. This is just a 
synonym for : and is needed so that the 
definition of ; will not include all the : 
timer words. 

Creating the macros is simple. Just 
follow the rules developed in Forth 
Dimensions V/5: precede each 
IMMEDIATE word by [COMPILE], precede 
all other words by COMPILE and declare 
the macro IMMEDIATE. 

After loading these screens, load and 
run the application you want to time, 
and then execute SUMMARY to produce 
a display of all the colon-defined words 
in your application, with the number 
of uses and average time per use for 
each word. Screens 53-54 contain the 
definitions of SUMMARY and support- 
ing words. Everything here is straight- 
forward except CHECK, perhaps, which 
scans the dictionary linkage, skipping 
over constants, variables and other 
word types until a colon-defined word 
is found. CHECK returns the NFA of 
this word. 

Screen 56 contains an example ap- 
plication of these macros. Three words 
that multiply by two are defined. The 
first, 2*, makes use of a built-in CODE 
definition. The other two are self- 
explanatory. The word T2* exercises 
each of the "multiply-by- two" words 
1000 times on the same problem. 
SUMMARY prints the results, as shown 
in Figure Three. 

When using the timer macros, you 
may want to define additional applica- 
tion words. These will be automatically 
assigned word numbers as they are 
compiled, and will be added to the 
summary. However, if you go back 
and redefine one of your words, it is 
necessary to execute INIT and then 
recompile your entire application. 
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Now You Can Add 

a ARTIFICIAL 
> c INTELLIGENCE 

To Your Programs Using a Powerful Combination 




By Elliot Schneider & Jack Park 



Heres Your Chance to Profit by being on 
the Forefront, Write 5th Generation Software 



Learn How To: 

• Create Intelligent 

Programs 

• Build Expert Systems 

• Write Stand Alone License 

Free Programs 



Construct 
Rule Bases 
Do Knowledge 
Engineering 
Use Inference Engines 



Write Intelligent Programs For: 



Home Use 
Robotics 

Medical Diagnosis 
Education 
Intelligent CAI 
Scientific Analysis 
Data Acquisition 



Data Analysis 
Business 
Real Time 
Process Control 
Fast Games 
Graphics 

Financial Decisions 



Extended Math Functions 

• Fast ML Floating Point & Integer Math 

• Double Precision 2E+38 with Auto. Sci Not. 

• n x e x Logx Loge Sin Cos Tan SQR 1/X... 

• Matrix and Multidimensional Lattice Math 

• Algebraic Expression Evaluator 



SUPERFORTH 64 + AI 



LISP 



LOGO 



PASCAL 
BASIC 
FORTRAN 



ASSEMBLER 




Power of Languages Constructs 
SuperForth 64 is more 
powerful than most other 
computer languages 



Programming Time 

SuperForth 64 Saves You 
Time and Money 



Easy Graphics & Sound Words 



• Hires Plotting 

• Windows 

• Split Screen 

• Printer/Plotter Ctrl 

• Sprite & Animation 
Editor 

Easy Control of all I/O... 

• RS232 Functions 

• Access all C-64 Peripherals 

Utilities 

• Interactive Interpreter 

• Forth Virtual Memory 

• Full Cursor Screen Editor 

• Full String Handling 

• Trace & Decompiler 

• Conditional Macro 
Assembler 



Great Documentation 

• Easy to Read 350 pg. 
Manual with Tutorials 

• Source Screen Provided 

• Meets all MVP Forth -79 
Industrial Standards 

• Personal User Support 

A Total 
Integrated Package 
for the Commodore 64 



Turtle Graphics 
Koala Pad Graphics 
Integrator 

Hires Circle, Line, Arc 
Music Editor 
Sound Control 

Interrupt Routines 



Interactive Compiler 
Romable Code Generator 
40K User Memory 
All Commodore File Types 
Conversational User 
Defined Commands 




Ordering Information: Check, Money 
Order (payable to MOUNTAIN VIEW 
PRESS, INC), VISA, MasterCard. 
American Express COD'S $5,00 extra. 
No billing or unpaid PO's. California 
residents add sales tax. Shipping costs 
in US included in price. Foreign orders, 
pay in US funds on US bank, include 
for handling and shipping $10. 

■Parsec Research 

Commodore 64 TM of Commodore 



SPECIAL 
INTRODUCTORY OFFER 



$ 99 



00 



only 

203 00 Value 
Limited Time Offer 
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(415) 961-4103 

MOUNTAIN VIEW PRESS INC 

P.O. Box 4656 
Mt. View, CA 94040 
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PARSEC RESEARCH 
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Improved Forth-83 DO LOOP 




Dennis L. Feucht 
Beaverton, Oregon 

When the Forth-83 Standard was 
released, it was accompanied by a well- 
written, public-domain model which 
could run on CP/M systems. Another 
model was provided by Laxen, Perry, 
Tracy, et al. for the Apple II and other 
650X-based computers. Both imple- 
mentations of Forth handle DO LOOP 
constructs in the same way. The 
Forth-83 definition for LEAVE differs 
from that of Forth-79 or fig-FORTH, 
necessitating a different approach to 
DO LOOP implementation. 
Structured vs. Unstructured 
Constructs 

In pre-83 Forths, LEAVE would cause 
a DO LOOP to be exited when the pro- 
gram flow reached LOOP. In Forth-83, 
the loop is left immediately. Although 
the Forth-83 LEAVE is more versatile 
than the previous one, it also has the 
effect of unstructuring the DO LOOP 
construct. Other Forth control con- 
structs, such as IF ELSE THEN or BEGIN 
UNTIL, are structured in that they have 
one entry and one exit. No branches 
into or out of a control construct are 
otherwise allowed. When compiling 
structured constructs, all forward 
referencing can be handled on the 
stack, since multiple constructs within 
a word will be nested rather than over- 
lapping. For example, when compiling, 
a BEGIN will invoke HERE, leaving the 
address of the next word to be com- 
piled. Later, UNTIL compiles a 7BRANCH 
followed by the address left on the 
stack by BEGIN; it is where 7BRANCH 
will (conditionally) branch to. If 
another BEGIN is encountered before 
until, it too will leave the address of its 
forward reference on the stack. Since 
the forward-reference address on the 
top of the stack goes with the second 
BEGIN, the first UNTIL encountered 
must terminate the second BEGIN UNTIL 
construct, causing it to be nested inside 
the first one. Similar reasoning applies 
to the other Forth control constructs — 
except LEAVE. 

Since multiple LEAVES can occur 
within a DO LOOP along with other con- 
structs, and since DO LOOPS can also be 
nested, the simple structured scheme 



LIAR I ABLE LOOP-LINK 

: DO-EHITTRUE LOOP-LINK «§> HERE LOOP-LINK ! , ; 

: DO COMPILE (DO) DO-EHIT ; IMMEDIATE 

: ?D0 COMPILE (?D0) DO-EHIT ; IMMEDIATE 

Figure One 



LEfiltE now compiles (LEflUEl and links in the following address: 
: LEAUE COMPILE (LEflUEl HERE LOOP-LINK @ , 

LOOP-LINK ! 
; IMMEDIATE 

Figure Two 

: LOOP-EHIT SWAP 7C0NDITI0N LOOP-LINK @ 

DEGIN DUP <5> >R HERE 2+ OUER ! R@ ?DUP 

IF NIP THEN R> 0= 
UNTIL 2+ , LOOP-LINK ! 



: LOOP COMPILE (LOOP) LOOP-EHIT ; IMMEDIATE 

: HOOP COMPILE (HOOP) LOOP-EHIT ; IMMEDIATE 

Figure Three 



: (DO) R> 2+ -ROT SLURP DUP >R - >R >R ; 
: (?D0) 2DUP = 

IF 2DR0P R> @ >R 

ELSE R> 2+ -ROT SUJRP DUP >R - >R >R 
THEN 

» 

Figure Four 



URRI ABLE L00P-LINKT 

: DO-EHIT LOOP-LINK -T @ HERE L00P-LINK-T ! , ; 
: LOOP-EHIT L00P-LINK-T @ 

BEGIN DUP @ >R HERE THERE 2+ OUER ! R@ ?DUP 
IF NIP THEN R> 0= 

UNTIL THERE 2* , L00P-LINK-T ! 



Figure Five 
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T: LOOP COMPILE [TARGET] (LOOP) LOOP-EHITT; 
T: +LOOP COMPILE [TARGET] (HOOP) LOOP-EHITT; 

T: LERUE COMPILE [TARGET] (LEAUE) HEAE LOOP-LINK-T @ 
LOOP-LINK-T ! 

T; 

T: DO COMPILE [TARGET] (DO) OO-EHITT; 

T: ?DO COMPILE [TARGET] (?DO) DO-EKIT T; 

Figure Six 



no longer applies. For example, con- 
sider this word: 

: WORD DO . . . BEGIN . . . LEAVE 
. . . UNTIL . . . LOOP ; 

To implement leave, have it compile 
(LEAVE) which, at run time, pops the DO 
LOOP items off the return stack and 
branches to the forward address just 
after LOOP. This address is contained in 
the memory location following (LEAVE). 
An obvious (but unsuccessful) way to 
then resolve the forward reference 
created after (LEAVE) is to put the 
address after (LEAVE) on the stack so 
that LOOP can put the address after 
(LOOP) into the address after (LEAVE) 
(that is, resolve the forward reference). 
But UNTIL would use the address left by 
LEAVE to resolve the forward reference 
of BEGIN instead! This control flow is 
unstructured due to leave. 

DO LOOP Implementations 

To solve this compile-time problem, 
the Forth-83 implementations have 
(DO) push an extra item on the return 
stack, which it gets from the location 
following (DO) in the threaded code. 
This item is the address used by 
(LEAVE). Thus, the forward reference 
for (LEAVE) is compiled by LOOP, which 
puts it in the address following (DO). 
Any LEAVES within the DO LOOP com- 
pile (LEAVE), but no forward reference 
following (LEAVE). It is at run time that 
(LEAVE) gets its forward reference from 
the return stack and branches to it. At 
compile time, leaves do not leave 
forward-reference addresses on the 
stack, and the DO LOOP remains struc- 
tured. 
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The implementation of DO LOOP 
given here avoids having to place the 
forward reference for (LEAVE) on the 
return stack, resulting in a two-item 
use of this stack, as did pre-83 Forths. 
The tradeoff is a somewhat more com- 
plex compile-time activity. This im- 
plementation should be easy to adapt 
to the current DO LOOP constructs, 
since the run-time words (LOOP), 
( + LOOP), (LEAVE), I and J (which are 
CODE words and, thus, machine de- 
pendent) require very little modifica- 
tion. The loop index word I remains 
unchanged. For J, reduce the indexing 
into the stack by 2 (since the LEAVE ad- 
dress is no longer there). For (LOOP) 
and ( + LOOP), the change is simple. At 
the end of each of these words, the 
items used by the DO LOOP are pulled 
off the return stack. For 8080 imple- 
mentations, the 6 D LXl in LOOP-EXIT 
should be changed to 4 D LXl. For the 
650X, LOOP-EXIT contains six PLAs. 
Remove two of them. Similarly, for 
(LEAVE), two fewer return stack pulls 
are needed. 

The problem of unstructured for- 
ward references left on the parameter 
stack by LEAVE is eliminated by build- 
ing a linked list of these references. 
When LOOP (or + LOOP) is encountered, 
it follows the pointers of this list 
backward, resolving references. The 
first reference is always created by DO 
or ?DO. ?DO requires a forward 
reference, but DO does not. However, 
to keep LOOP simple, a spurious 
reference is compiled for (DO) also, 
though it never uses it. To handle nest- 
ed DO LOOPS, multiple lists of forward 
references are created. The variable 
LOOP-LINK is used to point to the head 
of the current list. When DO is encount- 
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ered, LOOP-LINK is pushed on the para- 
meter stack and is initialized to HERE, 
the address following (DO). LOOP uses 
the pointer in LOOP-LINK to resolve ad- 
dresses, then pops the stack into LOOP- 
LINK. LOOP-LINK then points to the last 
unresolved forward reference location 
of the next DO LOOP out. DO and ?DO 
compile a zero after (DO) (a zero ter- 
minates the linked list). Their defini- 
tions are shown in Figure One. 

LEAVE now compiles (LEAVE) and 
links in the address shown in Figure 
Two. As described, LOOP or +LOOP 
compiles its run-time word, resolves 
the list of forward references (with the 
BEGIN UNTIL loop in LOOP-EXIT), then 
restores LOOP-LINK from the stack (see 
Figure Three). DO and ?DO place a true 
flag on the stack for error checking, 
which is absorbed by 7CONDITIONAL. 

Finally, the run-time words for DO 
and ?DO are shown in Figure Four. 
Notice that the ELSE part of (?DO) is 
just (DO). It might be tempting to 
substitute (DO) instead, but the top of 
the return stack would then contain the 
return pointer into the threaded code in 
(?DO). Since the arguments used by (DO) 
are on the return stack, it would not be 
properly set up. 



Metacompiler Considerations 

To metacompile this DO LOOP con- 
struct, transition words similar to DO, 
?DO, LEAVE, LOOP and +LOOP are need- 
ed. Error checking has been omitted 
from the implementation given, and 
the variable LOOP-LINK-T has been ad- 
ded. The words given in Figure Five go 
into the vocabulary of the metacom- 
piler. The word THERE takes a compile- 
time, target-code address and offsets it 
to the corresponding run-time address. 
The following words go into the 
TRANSITION vocabulary, which con- 
tains defining and compiling words 
found in the target source code. The T: 
and T; words indicate this (see Figure 
Six). All T: definitions are made im- 
mediate by T; and [TARGET] does a 
[COMPILE] from the TARGET vocabulary, 
which acts as the symbol table for 
target words. 
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A Forth I/O Technique 



Pseudo-lnterrupts 




Ed Schmauch 
Ponca City, Oklahoma 

Traditionally, there are two methods 
of computer input/output (I/O): poll- 
ing and interrupts. Polling is easier to 
implement but has the disadvantage of 
completely tying up the CPU during 
I/O. The use of interrupts allows the 
CPU to do background processing 
concurrently with the I/O but requires 
a more detailed understanding of the 
hardware. Using Forth, I have devel- 
oped an intermediate technique which 
requires no more understanding of the 
hardware than polling, but allows 
background processing like interrupts. 
I have dubbed the technique "pseudo- 
interrupts." 

The technique takes advantage of 
Forth's threaded nature. The inner in- 
terpreter routine NEXT is patched to 
execute a code word with every execu- 
tion of NEXT. Because Forth code is 
threaded, execution is constantly pass- 
ing through NEXT. The code word that 
is patched in will therefore execute with 
great frequency. This pseudo-interrupt 
service routine can poll I/O port regis- 
ters a single time and take any neces- 
sary action. This gives a form of 
polling which is neatly interleaved with 
Forth execution. This technique does 
not match the rapid response and CPU 
efficiency of hardware interrupts, but 
offers an improvement over traditional 
polling techniques by allowing high- 
speed I/O with background processing 
occurring simultaneously. 



Screens 21-23 show the basic 
pseudo-interrupt words. I am using the 
Forth-79 Standard (MVP-FORTH 
version 1.01.03) on a Kaypro II 
portable computer. PATCH (screen 21) 
expects the parameter field address 
(PFA) of the pseudo-interrupt service 
routine on the top of the stack and 
patches a jump to this location over the 
three one-byte instructions at the 
beginning of NEXT. For example, if the 
pseudo-interrupt service routine is 
named PISR one should enter ' PISR 
PATCH to enable the pseudo-interrupt. 
Make sure the pseudo-interrupt service 
routine preserves the values in any 
registers which are used by the Forth 
inner interpreter. With MVP-FORTH 
on a Z-80 machine, I must preserve the 
value in the BC register pair, since this 
is the Forth instruction pointer. The 
pseudo-interrupt service routine must 
end with the macro BACK (screen 22), 
which assembles the three patched- 
over, one-byte instructions and a jump 
to location NEXT +3. UNPATCH (screen 
21) returns NEXT to its normal form, ef- 
fectively disabling the pseudo- 
interrupt. (Note that this technique 
applies only to those Forth systems 
which use a call to a central NEXT, not 
to those which compile that code with 
each word.) 

In my CP/M version of Forth, KEY- 
l/O (screen 23) can be necessary, since 
<KEY> uses CP/M to get a character 
from the console. If no character is 
present, CP/M waits until one is input. 
During this time, NEXT is not being ex- 



ecuted, rendering the pseudo-interrupt 
inactive. KEY-l/O waits in Forth until a 
character is present and then executes 
< KEY> , ensuring that execution is con- 
stantly passing through NEXT. KEY is 
vectored through the variable 'KEY, 
allowing easy definition of KEY-PATCH 
and KEY-UNPATCH to vector execution 
to KEY-l/O and back to <KEY>, respec- 
tively. 

Both to demonstrate the use of 
pseudo-interrupts and to evaluate their 
performance, I have written code to 
run the prime number sieve benchmark 
(BYTE, January 1983) concurrently 
with pseudo-interrupt-driven serial 
output. This code is shown in screens 
24-27. The message "I AM RUN- 
NING THE PRIME NUMBER 
BENCHMARK," followed by a car- 
riage return and line feed, is placed in 
an output buffer by screen 24. The 
pseudo-interrupt service routine 
(screen 25) continuously outputs this 
message. When the last character of 
the message (the line feed) is transmit- 
ted, the buffer pointer is reset to zero 
so the message will be restarted from 
the beginning. PISR also counts the 
number of characters output, so 
character-output efficiency can be 
evaluated. 

Screen 26 has the code to initialize 
and set the baud rate on the serial port. 
This code and parts of PISR are hard- 
ware dependent. Be sure to modify 
them to suit your hardware before you 
attempt to implement them. 
INIT SERIAL only needs to be executed 



Baud 


Time 


Percent 


Characters 


Output 


Rate 


(Seconds) 


Full-Speed 


Output 


Efficiency (%) 


No output 


132.9 


100.0 






1,200 


183.5 


72.4 


21,792 


99.0 


2,400 


185.0 


71.8 


43,852 


98.8 


4,800 


187.5 


70.9 


88,860 


98.7 


9,600 


192.6 


69.0 


182,632 


98.8 


19,200 


204.5 


65.0 


400,252 


101.9 



Summary of Benchmark 
Performance 
Table One 
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once after the computer is booted. 

BAUD SET is used whenever you want 

to change the baud rate. Screen 27 con- 
tains the BYTE benchmark. Line 4 
zeroes the buffer pointer, zeroes the 
character counter and enables the 
pseudo-interrupt. Line 15 disables the 
pseudo-interrupt and prints the num- 
ber of characters transmitted. The rest 
of the code is from BYTE, except that 
the sieve is executed ten times to add to 
the precision of the timings. Besides 
enabling and disabling the pseudo- 
interrupt, the benchmark code makes 
no reference to the serial output 
process. As with true interrupt-driven 
I/O, pseudo-interrupts operate with- 
out requiring the attention of the main 
line code. Note that key-patch was not 
necessary, since the benchmark never 
gets input from the keyboard. To run 
the benchmark without pseudo- 
interrupts, "comment out" lines 4 and 
15, except the semi-colon. 

Table One shows pseudo-interrupt 
performance for serial output baud 
rates ranging from 1,200 to 19,200. 
Also shown is the time for the bench- 
mark with no concurrent pseudo- 
interrupt-driven output. The bench- 
mark was run twice at each baud rate 
to lessen the possibility of an error. 
The serial output was observed on a 
Lear Siegler ADM 5 terminal. The per- 
cent of full speed is calculated by divid- 
ing the time for the benchmark without 
pseudo-interrupt-driven output by the 
time for a particular run and multiply- 
ing by 100. (One might expect to divide 
the time for a run by the time without 
pseudo-interrupt-driven output, but we 
are interested in speed, which is the 
reciprocal of time.) The character out- 
put efficiency is the number of charac- 
ters output divided by the maximum 
number of characters that could be 
output at the given baud rate in the 
time required for the benchmark to 
run, multiplied by 100. As can be seen 
from the table, the benchmark runs at 
approximately two-thirds of full speed, 
with the speed gradually decreasing 
with increasing baud rate. Worded 
another way, the pseudo-interrupt- 
driven serial output slows the 
benchmark by only one third. The 
character output efficiency for baud 



SCR 



6 
7 

a 

9 
10 
1 1 
12 
13 
14 
15 



#21 

< PSEUDO-INTERRUPT - 
( CRC= 10792 ) 
BASE S HEX 

CODE PATCH ( PFA - 
C3 ( JMP ) A MVI 
NEXT 1+ ST A H 

END-CODE 



PATCH. UNFATCH 



EHS 2 9 AUG S3 FORTH--/' 



NEXT ST A H POP 

MOV NEXT 2+ ST" A 



L A MOV 
NEXT JMP 



CODE UNPATCH t ) 

NEXT CS> A MVI NEXT ST A 

NEXT 2+ C9 A MVI NEXT 2-* 

END-CODE 

BASE 1 



NEXT 1+ CS> A MVI 
ST A NEXT JMP 



NEXT 1- 



~ HS 29 AUG S 3 FORTH -79 



SCR #22 

< PSEUDO-INTERRUPT - MACRO BACK 

1 ( CRC= 7942 ) 

2 ( BACK ASSEMBLES THE THREE ONE-BYTE INSTRUCTIONS THAT ARE ) 

3 ( PATCHED OVER IN NEXT AND A JUMP TO NEXT+3 ) 



4 








5 


BASE 3 CONTEXT 




CURRENT 3 


6 








7 


: BACK ( 






8 


C NEXT C3 


] 


LITERAL L 


9 


r. NEXT H- Ci> 


] 


LITERAL C 


10 


C NEXT 2+ C£> 


] 


LITERAL [ 


1 1 


NEXT 3 + JMP 






12 








13 


CURRENT ! CONTE 


X"l 


1 BASE 1 


14 








15 









SCR #2: 



PSEUDO INTERRUPT 



<EY I/O, VECTORING 



EHS 2 9 AUG 8 3 FORTH 



1 


( CRC=40007 > 




< DON'T WAIT FO 


4 


: KEY- I/O ( - 




BEGIN 


6 


2TERMINAL 


7 


UNTIL 


8 


<KEY> ; 


9 




10 


: KEY-PATCH ! 


1 1 


' KEY- I/O CFA 


12 




13 


: KEY— UNF'ATCH 


14 


' <KEY> CFA ' 


15 





SCR #24 






( PSEUDO INTERRUPT - BUFFER, ETC. 


- EHS 26MAY84 FORTH-79 


1 


< CRC=55411 ) 








: MAKE BUFFEF 


( ) 




4 


CREATE 34 


WORD C3 1+ ALLOT 13 C, 


10 C, ; 


6 


MAKE BUFFEFf PISR._BUFFER I AM RUNNING THE 


PRIME NUMBER BENCHMARI 


7 

a 


( 


COUNT BYTE WILL BE USED AS 


BUFFER POINTER ) 


9 


CONSTANT 


BAUD 




10 


4 CONSTANT 


DATA 




1 1 


6 CONSTANT 


CSR 




12 


4 CONSTANT 


READY? 




13 


10 CONSTANT 


LF 




14 


DVARIABLE 


CHARS 
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rates 1,000 to 9,600 is around ninety- 
nine percent. I am puzzled by the 
character output efficiency over 100 
percent for 19,200 baud. If the ef- 
ficiency is really 100 percent, the time 
would have to be in error by almost 
four seconds. I have confidence that 
the precision of my timings was greater 
than this. The only other possibility I 
can think of is that when the Kaypro 
serial port is set for 19,200 baud, it ac- 
tually outputs characters slightly faster 
than that. I admit this explanation is 
not very satisfying and invite readers to 
offer other suggestions. 

In conclusion, the pseudo-interrupt- 
driven serial output slows the bench- 
mark by only one third while delivering 
an output efficiency of ninety-nine per- 
cent. This demonstrates that the tech- 
nique is a viable alternative to 
traditional I/O methods. 

Two final notes will help those plan- 
ning to implement this in MVP- 
FORTH. I had to increase the memory 
available to Forth with the following: 

LIMIT 16384 + ' LIMIT ! CHANGE 

Also, my version of MVP-FORTH 
did not contain — > in the kernel. It is 
easily defined as follows: 

: — > ? LOADING >IN ! 1 BLK +! ; 
IMMEDIATE 



SCR #25 

( PSEUDO- INTERRUPT - SERVICE ROUTINE - EHS 26MAY34 FORTH-79 ) 

1 ( CRC=34702 ) 

3 CODE PISR < - ) 

4 CSR IN READY? AN I 0# IF ( SERIAL PORT READY? ) 

5 PISR BUFFER H LXI ME MOV E INR E M MOV ( INC PTR ) 

6 O D MVI D DAD M A MOV DATA OUT < OUTPUT CHAR ) 

7 LF CPT 0= IF ( END OF LINE? ) 

8 A SUB PISR BUFFER STA THEN ( ZERO BUFFER POINTER ) 

9 CHARS 2+ LHLD H INX CHARS 2+ SHLD ( INCREMENT CHARS ) 

10 L A MOV H ORA 0= IF ( CARRY TO HIGH WORD? ) 

11 CHARS LHLD H INX CHARS SHLD THEN 

12 THEN 

1 3 BACK 

14 END-CODE 

15 --> 



SCR #26 

< PSEUDO- INTERRUPT - SERIAL PORT - EHS 05SEPS3 FORTH-79 ) 

1 ( CR029294 ) 

2 BASE 3 HEX 

4 CREATE INIT ARRAY ( OUTPUT TO CSR TO INITIALIZE ZSO SIO > 

5 IS C, 04 C, 44 C, 01 C, 00 C, 03 C, CI C, 05 C, EA C, 

6 HERE INIT ARRAY - CONSTANT INIT ARRAY LENGTH 



7 

8 : INIT__SERIAL ( ) 

9 INI T_ARRAY_ LENGTH O DO 

10 INIT ARRAY I + C3 CSR P 1 < N BAUD ) 

11 LOOP ; ( 7 1200 ) 

12 (10 2400 ) 

13 : BAUD _ SET ( N ! BAUD P! ; (12 4S00 ) 

14 BASE 1 (14 9600 ) 

15 — > ( 15 19200 ) 



SCR #27 

( PSEUDO— I NTERRUPT - BYTE BENCHMARK EHS 26MAY84 FORTH-79 ) 

1 ( CRC=42100 ) ( TO RUN WITHOUT PSEUDO- I NT, COMMENT OUT 4 ?< 15 ) 

2 8190 CONSTANT SIZE VARIABLE FLAGS SIZE 2- ALLOT 

3 : DO-PRIME ( > 

4 PISR__BUFFER C! CHARS D ' ' PISR PATCH 

5 10 DO 

6 FLAGS SIZE 1 FILL ( SET ARRAY ) ( ZERO PRIMES COUNT > 

7 SIZE DO FLAGS I + C3 

8 IF I DUP + 3 + DUP I + 

9 BEGIN DUP SIZE < 

10 WHILE O OVER FLAGS + C OVER + REPEAT 

1 1 DROP DROP 1 + 

12 THEN 

13 LOOP CR . . " PRIMES " 

1 4 LOOP 

15 UNPATCH 4 SPACES CHARS D.S D . . " CHARS OUTPUT " ; 
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Attend the Seventh Annual 



FORML CONFERENCE 

The original technical conference for professional Forth 
programmers, managers, vendors, and users. 



November 29 - December 1, 1985 
Asilomar Conference Center 

Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California 



This year's theme: SOFTWARE TOOLS, a Forth natural. 

Present your favorite Forth tool and publish it in the conference proceedings, or 
present a paper on another Forth topic. You will meet other Forth professionals 
and learn about the latest in Forth applications, techniques, and directions. 



To get your registration packet call the FIG Hot Line (408) 277-0668 
or write to: FORML Registration, Forth Interest Group, P. O. Box 8231, 
San Jose, CA 95155. 



Registration: $265 Double Room 

$315 Single Room (Limited availability) 

$200 Non-conference guest (Share a double room) 

Registration includes room, meals, conference materials, and social events. 



Registration and abstracts are due 
October 15, and final papers are due 
November 1, 1985. Make your 
reservation now and get your 
registration packet. 

Space is limited, 
advance registration 
is required. 
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An Approach to Reading Programs 



Kim Harris 
Palo Alto, California 

Michael Ham 
Santa Cruz, California 

Programmers frequently need to un- 
derstand in detail a program that was 
written by someone else. Understand- 
ing other people's programs is essential 
in program maintenance and revision, 
and it also plays a valuable role in 
programmer education by allowing 
programmers to learn from the tech- 
niques and skills embodied in their 
colleagues' creations, as well as from 
their mistakes and oversights. 

Formal "code inspections" efficient- 
ly facilitate the difficult task of truly 
comprehending a program. This 
technique has the added advantage that 
the use of an inspection team means 
several people learn the program at one 
time. The team approach also ensures 
that the program is inspected from 
various viewpoints; thus, inefficiencies 
and errors are more likely to be detec- 
ted. 

Code inspection provides an excel- 
lent way for members of a FIG chapter 
to work together through the examples 
of Forth code published in Forth 
Dimensions and other journals. This 
technique helps the chapter members 
learn from the code and from each 
other. 

A code inspection team consists of 
four to six members; more or fewer 
hinder the process. Larger FIG chap- 
ters can form several inspection teams. 
In a company environment, it is impor- 
tant that supervisory or management 
personnel not be on the team, since 
their presence has a chilling effect on 
the frankness of the criticism and on 
the open give-and-take of the process. 

Specific roles are assigned in ad- 
vance to individual team members: 

Author One team member takes 
the role of author of the code. Ideally, 
of course, the actual author will play 
this role, but in the absence of the true 
author, a stand-in will suffice. The 
purpose of the author is to be the 
expert who answers questions about 
the code: why a given approach was 
taken, what considerations led to the 
development of a particular word. The 



author's ultimate responsibility is to 
make the appropriate changes to the 
code. 

Moderator The moderator's role is 
to keep things moving and to keep the 
inspection session on track. The idea of 
the code inspection is to understand the 
code and to point out ways in which it 
falls short: errors, inefficiencies and 
the like. This meeting, though, is not 
the place to write new code or to 
develop alternate solutions. The mod- 
erator is a facilitator who keeps the 
meeting focused on its purpose. Also, 
every suggestion and correction must 
be recorded during the meeting so that 
it will not be forgotten. The moderator 
is responsible for the minutes of the 
meeting. 

Reader One team member reads 
the code aloud, paraphrasing it in 
terms of its purpose, rather than 
merely echoing the actual definitions. 
Instead of, "Next is SUM-COUNTS. 
ONE RECORD-COUNT STORE 
BEGIN FETCH-RECORD...," the 
reader says something like, "The next 
word begins with the first record; for 
each record, it reads the total and in- 
crements the count box." By para- 
phrasing the code, the reader focuses 
the group's attention on the meaning 
of the code; by paraphrasing it aloud, 
the group stays together and actually 
examines each word. Without such a 
reading, code inspections quickly 
degenerate into, "Next is screen 10; 
any comments? No? Screen 11? Screen 
12?" The process goes faster, but the 
code is not really examined or under- 
stood. 

Inspectors The remaining team 
members are "inspectors." They fol- 
low the code as the reader reads it, they 
ask questions of the "author" and 
point out what they question or don't 
understand. Some inspectors may be 
asked to pay special attention to pro- 
gram functions in their area of exper- 
tise (e.g., drivers, data-base design, 
quality assurance, integration, testing). 

All members of the team check the 
code for style: Are the names well 
chosen? Are stack diagrams present 
and accurate? Are comments present 
and helpful? 



To prepare for a code inspection, 
each person should spend two hours 
carefully reviewing the code, to get 
familiar with it and to get some grasp 
of how it does what it does. The 
reader, of course, may have to prepare 
in greater detail, since to paraphrase 
the code requires a good understanding 
of its intentions. Preparation is vitally 
important to the success of the code 
inspection. 

The meeting should be limited to two 
hours; people cannot focus with any 
intensity for a longer period of time. 
Experience shows that a line of Forth 
code requires (on the average) about 
thirty seconds in this kind of review; 
this means a screen can be covered in 
about seven minutes. The result is that 
a review of Forth code cannot normally 
cover more than about seventeen 
screens in any session; twenty is prob- 
ably the maximum. 

After the code inspection, the author 
revises the code to take into account 
the comments and criticisms offered by 
the inspection team. Compared to un- 
inspected code, the code resulting from 
this process of review and revision 
shows a number of improvements: The 
style and factoring are better and more 
understandable, which makes subse- 
quent maintenance and revision much 
easier. Reviewing the code with other 
programmers catches problems that 
would normally show up only later, 
when the various separate modules 
would be integrated — problems like 
the use of the same name for different 
functions, redundancy with other mod- 
ules (as when a programmer redevelops 
a routine that another programmer has 
already written and tested), inconsis- 
tency in data values, and mismatches 
of context or side effects. Experience 
has shown that formal code inspections 
increase productivity, reduce develop- 
ment time and cost, and contribute to 
programmer training and education. 

The literature on code "walk 
throughs" and team programming is 
extensive. A good starting place for 
the interested reader is The Psychol- 
ogy of Computer Programming by 
Gerald Weinberg. 
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THE FORTH SOURCE 



MVP-FORTH 

Stable - Transportable - Public Domain - Toots 

You need two primary leatures in a software development package a stable operating 
system and the ability to move programs easily and quickly to a variety ol computers 
MVP-FORTH gives you both these leatures and many extras. This public domain product 
includes an editor. FORTH assembler, tools, utilities and the vocabulary for the best selling 
book "Starting FORTH" The Programmer's Kit provides a complete FORTH lor a variety ol 
computers. Other MVP-FORTH products will simplify the development ol your applications. 

MVP Books - A Series 

□ Vol. 1 , Alt about FORTH by Haydon MVP-FORTH glossary with cross reterences to 
fig-FORTH, Starting FORTH and FORTH-79 Standard 2nd Ed. $25 

□ Vol. 2, MVP-FORTH Assembly Source Code Includes IBM-PC®. 

CP/M» and APPLE* listing lor kernel $20 

□ N£ wvol. 3, Floating Point with source code by Koopman $25 

□ Vol. 4, Expert System with source code by Park $15 

□ Vol. 5, File Management System with interrupt security by Moreton $25 

□ Vol. 6, Expert Tutorial tor Volume 4 by M i L Oerick $15 

□ N! «Vol. 7, FORTH GUIDE to MVP-FORTH by Haydon $20 

MVP-FORTH Soltware - A transportable FORTH 

□ MVP-FORTH Programmer's Kit including disk, documenlation. Volumes 1 . 2 & 7 ot 
MVP Series, and Starting FORTH, DCP/M, DCP/M 86. OZ100, OApple, 

□ STMPC. DIBM PC, XT/AT & compatibles. DPC/MS-DOS. nOsborne. 

□ Kaypro. DMicroOecisions. DDEC Rainbow. ONEC 8201. □TRS-80/100, 
"'"OHP150. □ HPUO. ^Macintosh, OAtan 600/800/1200. QADAM $175 

□ MVP-FORTH Enhancement Package lor IBM-PC/XT/AT Programmer's Kil 
Includes lull screen editor. MS-DOS tile interlace, disk, display and 
assembler operators. $110 

□ MVP-FORTH Floating Point and Matrii Math for IBM PC/XT/AT with 8087 
or Apple with Applesoft $85 
MVP-FORTH Graphics Extension lor IBM PC/XT/AT or Apple $65 
MVP-FORTH Programming Aids lor CP/M. IBM or APPLE Programmer's 
Kit. Extremely useful tool for decompiling, callfinding. translating, and 
debugging $200 
MVP-FORTH Cross Compiler lor CP/M Programmer s Kit Generates 
headerless code lor ROM or target CPU $300 
MVP-FORTH Meta Compiler lor CP/M Programmer s kit Use for 
applications on CP/M based computer 

Includes public domain source. SI 50 



FORTH DISKS 



□ APPLE by MM 


S125 


□ Times by HW cassette 




□ APPLE by MM.F & <i. 


$245 


D T/S 1000/ZX-81 


$25 


□ ATARI" valFORTH 


$60 


Q 2068 


$30 


□ ATARI by PNS. F.G & X. 


$90 


□ 280 by LM 


$100 


□ C64 by HES Commodore 




□ 8086/68 by LM 


$100 


64 cartridge 


$40 


□ 68000 by LM 


$250 


"'«□ C64 with EXPERT-2 by PS 




□ VIC FORTH by HES. VIC20 




MVP.G.F 4 X 


$99 


Cartridge 


$20 


□ CP/M by MM 


$125 


□ Extensions for LM. Specify IBM 


Z80 


□ CP/M by MM. F. 


$185 


or 6086 




□ HP-75 by Cassady 


$150 


□ Software Floating Point 


$100 


D HP-85 by Lange 


$90 


□ 8087 Support (IBM-PC or 8086) $100 


□ IBM-PC by LM 


$100 


□ 9511 Support (Z80 or 8086) 


$100 


"'»□ IBM-PC by MM 


$125 


□ Color Graphics (Z80 or 8086) 


$100 


" E «D Macintosh by MM 


$125 


□ Data Base Management 


$200 


Key to Vendors: 








HW Hawg Wild Soltware 




Codes: 




LM Laboratory Microsystems 




F - Floating Point 




MM MicroMotion 




G - Graphics 




PNS Pink Noise Sludio 




T - Tutorial 




PS Par Sec 




X ■ Other Extras 





FORTH MANUALS, GUIDES & DOCUMENTS 



□ 
□ 



n 



□ 



□ MVP-FORTH PADS (Professional Application Development System) lor IBM 

PC/XT/AT or PC|r or Apple II. IIB or lie. An integrated system for customizing your 
FORTH programs and applications. The editor includes a bi-directional siring 
search and is a word processor specially designed for fast development. PADS has 
almost triple the compile speed of most FORTH's and provides fast debugging 
techniques. Minimum size target systems are easy with or without heads. Virtual 
overlays can be compiled in object code. PADS is a true professional development 
system. Specify Computer. $500 

□ MVP-FORTH MS-DOS tile interface for IBM PC PADS $80 

□ MVP-FORTH Floating Point & Matrii Math see above $85 

□ MVP-FORTH Graphics Extension see above $65 

□ MVP-FORTH EXPERT-2 System lor learning and developing knowledge based 
programs. Both IF-THEN procedures and analytical subroutines are available 
Source code is provided Specify OApple, DIBM, or DCP/M Includes MVP 
Books. Vol. 4 & 6 $100 

□ N EwirV#Yy/|i/c A Word Processor for the IBM PC/XT/AT with 2S6K MVP-FORTH 

compatible kernel with Files Edit and Print systems. Includes Disk and Calculator 
systems and ability to compile additional FORTH words. $1 50 



Thinking FORTH by Leo Brodie, author 
ol best selling "Starting FORTH" $16 

□ ALL ABOUT FORTH by Haydon, 

MVP Glossary $25 

□ FORTH Encyclopedia 

by Oerick 4 Baker $25 
"'"[ J FYS FORTH from the Netherlands 

D User Manual $25 
□ Source Listing $25 
FORTH Tools and Applic. 
by Feierbach 

□ The Complete FORTH by Winlield 
Learning FORTH by Armstrong 

□ Understanding FORTH by Reymann 

□ FORTH. An Applications Approach 
by Toppen 

□ FORTH Applications by Roberts 
Mastering FORTH 
by Anderson A Tracy 

□ Beginning FORTH by Chirlian $17 

□ FORTH Encycl. Pocket Guide $7 

□ And So FORTH by Huang 

A college level text $25 

□ FORTH Programming by Scanlon $17 
O STARTING FORTH by Brodie Besl 

instructional manual available 

(soil cover) $20 



$25 



□ 68000 fig-Forth with assembler 

□ FORML Proceedings 

□ 1980 □ 1981 Vol 1 

□ 1981 Vol 2 □ 1982 

1983 □ 1984 each $25 

□ 1981 Rochester Proceedings 

□ 1981 □ 1982 O 1983 



□ 1984 each $25 

□ Bibliography ol FORTH $17 

□ The Journal ol FORTH 
Application * Research 

□ Vol 1/1 □ Vol 1/2 

□ Vol 2/1 □ Vol 2/2 
" £ wQ Vol 2/3 

□ METAFORTH by Cassady 

□ Threaded Interpretive Languages 

□ Systems Guide to llg-FORTH 
by Ting 

Sie" [ wn inside F83 Manual by Ting 



□ FORTH Notebook by Ting 

□ Invitation to FORTH 

□ PDP-11 User Man. 

□ 6502 User's Manual by 
Rockwell Intl. 

□ FORTH-83 Standard 

□ FORTH-79 Standard 



□ Installation Manual lor fig-FORTH 

□ Source Listings of fig-FORTH. Specify CPU or Computer 



each $15 
$30 
S25 

$25 
$25 
$25 
$20 
$20 

$10 
$15 
$15 



$15 
$15 



Ordering Information: Check. Money Order (payable lo MOUNTAIN VIEW PRESS. INC ) 
VISA, MasterCard. American Express COD'S $5 extra Minimum order S 1 5 No billing or 
unpaid PO's Calilornia residenls add sales lax Shipping costs in US included in price 
Foreign orders, pay in US Hinds on US hank Include Ini handling and shipping by AIR $b 



lor each item uder $25 $10 lor each iiem between $25 and $99 and $20 lor each item 
over $100 All prices and products stibiccl to change or withdrawal without notice Single 
syslem and/or single user license agreemcnl required on some products 



MOUNTAIN VIEW PRESS, INC. 

PO BOX 4656 MOUNTAIN VIEW, CA 94040 (41 5) 961 -41 03 



Number Editing Utility 



Ken Takara 
San Jose, California 



When writing interactive applica- 
tions, one often needs numeric data to 
be entered by a user at the keyboard. 
Unfortunately, most built-in input 
routines do not provide the kind of 
data checking and display formatting 
usually wanted. 

In BASIC, for example, you might 
code 



10 INPUT X 



The user then types "HI, I'M KEN" 
and the program blows up. In Forth, 
you would say something like 

RAD 80 EXPECT PAD NUMBER 



which has the sole advantage of not 
crashing when the user enters some 
other, arbitrary sequence of key 
strokes. 



In this little article, I describe a 
simple data-entry utility written just to 
handle certain numeric entry problems. 
Naturally, it is written in Fortran. I call 
the utility NUMED. 



How To Use It 

You call NUMED, passing it the row 
and column position on the display at 
which it should appear, and a double- 
length initial value. NUMED displays the 
initial value in inverse video. You can 
then edit it, replace it or accept it as it 
stands. 



Delete Last Digit 




NUMED State Diagram 
Figure One 



NUMED IT -5. 2 ( row col — : Display format 5.2) 

CH CV ( Position the cursor) 

O. NUMED. EDLINE 1- ( Point to the editing buffer) 

CONVERT DROP ( Convert to a binary value) 

<# # # "." HOLD # # # NUMED. SIGN @ SIGN #> TYPE ; 



: NUMBER— ED I TOR -5 . 2 < 
Format 5.2) 

' NUMED-5.2 CPA NUMED*D I SPLAY 

5 NUMED. MAXDIGITS ! 

NUMBER-EDITOR : 



row col dval 1 



dvai: 



Editor cal 1 , 



( Set display vector) 
( Set the digit count) 
( Call the editor) 



Create a display word for the 5.2 
format: Now create a word to set 

the display vector, set the digit 
count and call the number editor 
Figure Two 



1001 ===== 



6 
7 
B 
9 
10 
1 1 
12 
13 
14 
15 



( Data entry: INSTRING) 

: INSTRING ( string char 
4 ROLL 4 ROLL 
OVER + SWAP 
DO 

OVER I C@ = IF 

SWAP DROP O LEAVE 
ELSE 
1 + 
THEN 
LOOP 

IF DROP -1 THEN 



— position or —1) 

( Duplicate string) 

( Start/stop address in string) 

( For each entry in string...) 

( Found it...) 

( Return its offset and quit flag) 

( Not found yet. . . ) 

( Increment offset pointer) 

( Keep looking) 

( Failure flag, return failure) 



i oo; 



O. ( Data entry: SELECT) 
1 . 

2. : SELECT ( string 

3. BEGIN 

4. OVER OVER KEY 

5. INSTRING 
DUP -1 = 

WHILE 

DROP 
REPEAT 

>R DROP DROP R> 



6. 

7. 

8. 

9. 
10. 
1 1 . 
12. 



offset s Return position in string of char) 

< Dup string; get key) 
( See if it's in the string) 
( Not found yet...) 

< Drop key and keep trying) 
( Keep only position offset) 
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Valid keys are defined as follows: 



Keys 0-9 

<cr> 
<esc> 
X 

+ 



Numeric digit 

Accept current value 

Get initial value 

Delete last digit 

Change sign to 
positive 

Change sign to 
negative 



6. 

7. 

8. 

9. 
10. 
1 1 . 
12. 
13. 
14. 
15. 



( NUMBER EDITOR — start: 

CREATE NUMED. SAVESTR 
CREATE NUMED. EDLINE 
VARIABLE NUMED. MAXDIGITS 
VARIABLE NUMED. SAVESIGN 
VARIABLE NUMED. SIGN 
VARIABLE NUMED. ADDPT 
VARIABLE NUMED*D I SPLAY 
46 CONSTANT " . " 
16 STRING SIGNED. SLCT " : 
27 SIGNED. SLCT DROP 
24 SIGNED. SLCT DROP 
13 SIGNED. SLCT DROP 



Pr i mi t i ves ) 

16 ALLOT ( Initial string) 
16 ALLOT ( Edit string) 
12 NUMED. MAXDIGITS ! 
( Initial sign) 
( Current sign) 
( Add pointer) 
( Display word vector) 
( Decimal point ascii) 
:yz +-01 23456789" SIGNED. SLCT S! 
C! ( <esc> = charO) 

1+ C! ( ■'•X = charl) 

2+ C! ( <cr> = char2) 



The actions of the keys are best 

described by referring to the state =========================================================== 

diagrams (Figure One). Note that if the =============================== 1004 ============================= 

first key pressed is a digit, the initial < NUMBER EDIT0Rs numed-clrbuf numed-reset > 

value is cleared and replaced by 2 '. : numed-clrbuf < — : clear editing buffers) 

whatever the user enters. 3. numed.edline 16 32 fill < Blank out edit line) 

4. O NUMED. ADDPT ! 5 ( Add point at begining) 

Notes On the Display 6. : NUMED-RESET < — : Reset to initial value) 

Tka j a f„„i t j: r „i„, „ a ;„ + * 7 - NUMED-CLRBUF ( Clear edit buffer) 

The default display WOrd IS set tO g . 1& NUMED. ADDPT ! < Pointer to end of string) 

show a thirteen-character field: ten 9. numed.savestr numed.edline 16 cmove < Restore initial str> 

digits and a decimal point, a dollar sign 10 - numed. saves ign a numed.sign \ 5 < Restore initial sign) 

and either a plus or a minus. Obvious- J*" 

ly, this was developed for business ap- 13. 

plications! The format is 10.2 (ten 14. 

digits, with two to the right of the !=========_=== ======== == ==== = =-=_ -== === 

decimal point). ==========================™ 

The display is vectored, so you o. ( number editor: numed-initial numed-accept ) 

aren't stuck with only a 10.2 dollar for- 1 ■ 

„ . v .. ,. , 2. : NUMED-INITIAL ( dval — : Set initial value) 

mat. You can write your own display 3 . numed.savestr 16 32 fill ( ciear holding buffer) 

word based on the default word, then 4. numed-clrbuf < clear edit buffer) 

tell NUMED to use it instead. I'll talk 5 - 2DUP °- D < IF -1 else o then numed. saves isn i 

oK~,,* a„i :„ *u„ nr- e:„ *; >> 6 - <# *S #> DUP >R < dval -> string) 

abOUt that in the Configuration sec- 7 _ NUMED.SAVESTR SWAP CMOVE < Save initial value string) 

tlOn. 8. NUMED-RESET R> NUMED. ADDPT ! | ( Initial add point) 

9. 

Implementation Denendenrip« 10 ' ! NUMED-ACCEPT < — dval : Accept the edited value) 

implementation uepenaencies u _ _ numed . edl i ne 1- convert drop t string->dvai > 

This utility was developed under numed.sign @ if dnegate then ; < Get sign) 

MicroMotion Forth-79 on the Apple \ 4" y 

II + . Certain implementation-specific 15. 

words were used, which should be ===-=================================■============================ 

mentioned. 

Cursor positioning and video at- 
tributes are used by NUMED. Specifical- 
ly, the four words CV, CH, INVERSE and 
NORMAL are present. Most versions of 
Forth have some sort of equivalent. 
Glossary entries are: 



( NUMBER EDITOR: 7NUMED-FULL NUMED+ ) 

: 7NUMED-FULL ( — flag : True if buffer is full) 
NUMED. ADDPT @ NUMED. MAXDIGITS @ < NOT ; 



cv (row — ) 
cm (col — ) 

INVERSE ( — ) 
NORMAL ( -- ) 



Put cursor on 
given row. 

Put cursor on 
given column. 

Use inverse video. 
Use normal video. 



6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
15. 



NUMED + ( char — : 
NUMED.EDLINE 

NUMED. ADDPT ® + C! 

1 NUMED. ADDPT +' : 



Add digit to string) 
( Edit line...) 
( Append to add point) 
< Increment add point) 
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MicroMotion Forth also has a set of 
string-handling words. I've used S! and 
STRING to create a single-dimension 
array of characters for my own word, 
SELECT. 

STRING is a defining word that makes 
space for a character string. For ex- 
ample, 

10 STRING MUSH 

creates a dictionary entry called MUSH 
with space for ten characters. When 
you type MUSH it leaves the address of 
the first character and the length of the 
string on the stack. You could ap- 
proximate it with 

CREATE MUSH 10 C, 10 ALLOT 

and then, when calling MUSH, type 

MUSH COUNT 

to get the string pointer and length. 
The word S! moves a character string 
into the array part of the string vari- 
able. Some versions of Forth have the 
word ," to compile a string into the 
dictionary. 

You will note that I have to patch 
some characters into the selection 
string. This is because it is difficult to 
include things like <esc>, <cr> 
and A X as character literals in Forth. 

SELECT 

SELECT is a small utility with uses 
outside the NUMED package. Given a 
string of characters, SELECT accepts 
only those keystrokes whose characters 
are included in the string. It returns the 
index of the character within the string. 
This is permits the routine using 
SELECT to CASE on the keystroke, 
frequently done in menu-driven pro- 
grams. 

Implementation Notes 

numed has been implemented as a 
state machine where each state consists 
of an action part (within the CASE) and 
a transition part. Some action words 
within a state require the keystroke 
index as input, while some do not. 
Digits, for example, must be passed to 



=============================== 1 00 7 =============================== 

0. ( NUMBER EDITOR: NUMED-XDIGIT NUMED-SIGN 7NUMED-CMD ) 
1 . 

2. : NUMED-XDIGIT ( — : Delete last digit) 

3. NUMED. ADDPT @ 0> IF -1 NUMED. ADDPT +! THEN < Delete last char) 

4. 32 NUMED. EDLINE NUMED. ADDPT @ + C! ; ( Set to blank) 
5. 

6. : NUMED-SIGN ( sign — : Set sign) 

7. NUMED. SIGN ! ; 
8. 

9. : 7NLIMED-CMD ( — < command 1 l st > : Get a command) 

10. ( 0=<esc:> : 1="X : 2=<cr> : sign 3=setsign : char 4=add-digit) 

11. SIGNED. SLCT SELECT ( Get valid keystroke) 

12. DLIP 3 < IF EXIT THEN ( Return a control key) 

13. DUP 4 > IF SIGNED. SLCT DROP + C@ 4 EXIT THEN ( Return a digit) 

14. 3 = IF O ELSE -1 THEN 3 ; ( Return a sign) 

15. — > 



=============================== 1008 =============== 

O. ( NUMBER EDITOR: NUMED- 1STDIGIT > 
1 . 

2. : NUMED-1STDIGIT ( char — : Add 1st digit) 

3. NUMED-CLRBUF ( Clear edit buffer) 

4. NUMED+ i ( Add the digit) 
5 . 

6. : NUMED-REJECT ( char — : Reject; full buffer) 

7. DROP BELL ; ( Say 'all full') 
8. 

9. : NUMED— NOTHING < — : Do nothing) ; 
10. 

11. — > 

12. 

13. 

14. 

15. 



8. 

9. 
10. 
1 1 . 
12. 
13. 
14. 
15. 



NUMBER EDITOR: 
NUMED-SO ( — 
''NUMED-CMD DUP 
CASE 



=========== 1009 

NUMED-SO ) 
ixtstate : State 



control ) 



1 



NUMED-RESET 
NUMED-XDIGIT 
NUMED-NOTH I N6 
NUMED-SIGN 
NUMED-1STDIGIT 



>R ( Save copy of cmd 

( Legal actions) 
ENDDF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 



code) 



OF 
OF 

2 OF 

3 OF 

4 OF 
ENDCASE 
R> 

DUP 2 = IF DROP 3 EXIT THEN < Accept value) 

7NUMED-FULL IF DROP 2 EXIT THEN ( Maxdigits reached) 
DUP 0= OVER 3 = OR IF DROP O EXIT THEN ( esc/sign) 

DUP 1 = OVER 4 = OR IF DROP 1 EXIT THEN ; ( X/digit) 



=============================== 1010 ========================- 

0. < NUMBER EDITOR: NUMED-S1 ) 

1. : NUMED-S1 ( — nxtstate : State 1 control) 

2. 7NUMED-CMD DUP >R 

3. CASE 

4. OF NUMED— RESET ENDOF 

5. 1 OF NUMED-XDIGIT ENDOF 

6. 2 OF NUMED-NOTH I NG ENDOF 

7. 3 OF NUMED-SIGN ENDOF 

8. 4 OF NUMED+ ENDOF 

9. ENDCASE 

10. R> 

11. 7NUMED-FULL IF DROP 2 EXIT THEN ( Maxdigits reached) 

12. DUP 0= IF DROP O EXIT THEN ( esc=Undo> 

13. DUP 1 = OVER 2 > OR IF DROP 1 EXIT THEN ( X/digit) 

14. DROP 3 ; ( CR=Accept) 
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the append-digit word, while other ac- 
tion words take no parameters at all. 
The resulting code is not as elegant as it 
might be, but I saw no overriding 
reason to change it. 

Configuring NUMED 

NUMED is normally configured to 
accept a ten-digit value, displayed in 
the $10.2 format mentioned earlier. 
This may not always be desirable, of 
course. You may wish to reconfigure 
the editor before editing a field. To do 
this, you need to create a new display 
word, then change the display vector to 
point to it, and change the acceptable 
number of digits. NUMED-10.2 is the 
default display word, and NUMED* 
DISPLAY is the vector. NUMED. 
MAXDIGITS is a variable containing the 
maximum number of digits accepted 
for a value. 

For example, to edit a field in the 
form xxx. xx with all five digits dis- 
played, see Figure Two. 

Glossary 

SELECT ( s-addr len — index ) 

Given a string, accept a keystroke 
represented within the string and 
return its index within the string. 

NUMBER-EDITOR ( row col dvall 
— dvall ) 

Call the number editor. The field 
will be displayed on the video screen at 
row,col in inverse video. Digits will 
enter the display in calculator format. 
On exit, the double-value result is 
returned. 



0. ( NUMBER EDITOR! NUMED— S2 ) 

1. : NUMED— S2 < — nxtstate : State 2 control) 

2. 7NUMED-CMD DUP >R 

3. CASE 

4. O OF NUMED-RESET ENDOF 

5. 1 OF NUMED— XDIBIT ENDOF 

6. 2 OF NUMED— N0THI NG ENDOF 

7. 3 OF NUMED-SIGN ENDOF 

8. 4 OF NUMED-REJECT ENDOF 

9. ENDCASE 

10. R> 

11. DUP 0= IF DROP O EXIT THEN ( esc=Undo) 

12. DUP 1 = IF DROP 1 EXIT THEN ( X=Delete> 

13. DUP 2 = IF DROP 3 EXIT THEN ( CR=Accept) 

14. DROP 2 ; ( Sign/digit) 

15. — > 



=============================== 1012 ================ 

0. ( NUMBER EDITOR: NUMED-10.2 ) 
1 . 

2. : NUMED-10.2 ( row col — : Display value) 

3. CH CV 

4. O. NUMED. EDLINE 1- 

5. CONVERT DROP DABS 

b. <# # # "." HOLD #S 36 HOLD NUMED-SIGN @ SIGN #) 

7. 13 OVER - SPACES TYPE ; 

8. 

9. NUMED-10.2 CFA NUMED*DISPLAY ! 
10. 

11. — > 

12. 

13. 

14. 

15. 



0. < NUMBER EDITOR: NUMED— STATES ) 
1. 

2. : NUMED-STATES ( state — nxtstate : Full state control) 

3. CASE 

4. O OF NUMED-SO ENDOF 

5. 1 OF NUMED-S1 ENDOF 

6. 2 OF NUMED-S2 ENDOF 

7. ENDCASE ; 
8. 

9. 

10. — > 

1 1 . 

12. 

13. 

14. 

15. 



=============================== 1014 ============================ 

O. ( NUMBER EDITOR: NUMBER-EDITOR ) 
1 . 

2. : NUMBER-EDITOR ( row col dvall — dval2 : Full edit) 

3. NUMED— INITIAL ( Prepare to edit) 

4. OVER OVER INVERSE NUMED*D I SPLAY @ EXECUTE ( Display dvall) 

5. BEGIN ( Initial state is SO) 

6. NUMED-STATES < Execute state) 

7. 3 PICK 3 PICK NUMED*D I SPLAY @ EXECUTE ( Display result) 

8. DUP 3 = UNTIL < Go until state 3 reached) 

9. DROP ( Drop extra state value) 

10. NORMAL NUMED*D I SPLAY @ EXECUTE < Display -final dval2) 

11. NUMED— ACCEPT ; ( Accept the result) 
12. 

13. 
14. 
15. 
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Michael Ghormley 
San Jose, California 

With this issue, we say goodbye to 
John Hall as the International FIG 
Chapter Coordinator. John has served 
in this capacity for more than two 
years, and has done a sterling job. For 
the entire FIG membership, I wish to 
thank you, John, for your enormous 
contribution of time and energy. I 
hope that in the future I can do as well. 

We wish to welcome two new FIG 
chapters: 

Holland FIG Chapter, Breda, Holland 
FIG des Alpes, Annely, France 

Atlanta FIG Chapter 

Ron Skelton reports that Rick Nixon 
has developed a Forth-83 for the Com- 
modore 64 which follows Mastering 
Forth, except for an improved editor. 
The price is $20, which includes ongo- 
ing support. Rick's home phone is 
404-377-3509. Brian Walsh provided a 
comparison of fig-FORTH, Forth-79, 
Forth-83 and HP-71B Forth. 



East Tennessee FIG Chapter 

Norman E. Smith writes that 
Richard Spille talked on the operation 
of the Forth inner interpreter. Paul 
Satterlee presented a high-level 
floating-point package, and Dick 
Tracey demonstrated Forth on a TI 
99/4A. 

Boston FIG Chapter 

The report from Bob Demrow is that 
their group is developing a controller 
project for the Plymouth-Carver Plan- 
etarium as a public-service project. It is 
being coordinated by Russell Blake. 
Also, Al Grant spoke on the Rockwell 
R65F11 chip set. 

Richmond FIG Chapter 

Donald Full reports that John C. 
Lundin, Jr. is giving a tutorial on data 
structures. Donald Full presented new 
words called "conditional comments" 
which may be passed over or compiled, 
depending on a value on the stack. Phil 
Smith brought a Rockwell 
R65Fll-based, single-board computer 
for inspection. 
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FIG-Forth for the Compaq, 

IBM-PC, and compatibles. $35 

Operates under DOS 2.0 or later, 
uses standard DOS files. 

Full-screen editor uses 16 x 64 
format. Editor Help screen can be 
called up using a single keystroke. 

Source included for the editor and 
other utilities. 

Save capability allows storing Forth 
with all currently defined words 
onto disk as a .COM file. 

Definitions are provided to allow 
beginners to use Starting Forth 
as an introductory text. 

Source code is available as an 
option 



A Metacompiler on a 

host PC, produces a PROM 
for a target 6303/6803 
Includes source for 6303 
FIG-Forth. Application code 
can be Metacompiled with Forth 
to produce a target application 
PROM. $280 

FIG-Forth in a 2764 PROM 

for the 6303 as produced by 

the above Metacompiler. 
Includes a 6 screen RAM-Disk 
for stand-alone operation. $45 

An all CMOS processor 

board utilizing the 6303. 
Size: 3.93 x 6.75 inches. 
Uses 11-25 volts at 12ma, 
plus current required for 
options. $240 - $360 

Up to 24kb memory: 2kb to 16kb 
RAM, 8k PROM contains Forth. 
Battery backup of RAM with off 
board battery. 

Serial port and up to 40 pins of 
parallel I/O. 

Processor buss available at 
optional header to allow expanded 
capability via user provided 
interface board. 



Micro Computer 
Applications Ltd 

8 Newfield Lane 
Newtown, CT 06470 
203-426-6164 



Foreign orders add $6 shipping and handling. 
Connecticut residents add sales tax. 
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• ALABAMA 

Huntsville FIG Chapter 

Call Tom Konantz 
205/881-6483 

• ALASKA 

Kodiak Area Chapter 

Call Horace Simmons 
907/486-5049 



• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

Tucson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead' 

602/323-9763 

• ARKANSAS 

Central Arkansas Chapter 

Twice Monthly: 2nd Sat., 2 p.m. & 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 

• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey/Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
Fullerton Savings 
Talbert & Brookhurst 

Fountain Valley 

Monthly, 1st Wed., 7 p.m. 

Mercury Savings 

Beach Blvd. & Eddington 

Huntington Beach 

Call Noshir Jesung 

714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy Kelly 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Rm. A 
Call Tom Ghormley 
916/444-7775 



Bay Area Chapter 

Silicon Valley Chapter 
Monthly, 4th Sat., 
FORML 10 a.m., FIG 1 p.m. 
ABC Christian School Aud. 
Dartmouth & San Carlos Ave. 
San Carlos 

Call John Hall 415/532-1115 
or call the FIG Hotline: 
408/277-0668 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sams 
303/477-5955 

• CONNECTICUT 

Central Connecticut Chapter 

Call Charles Krajewski 
203/344-9996 

• FLORIDA 

Orlando Chapter 

Every two weeks, Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Southeast Florida Chapter 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tampa Bay Chapter 

Monthly, 1st Wed., p.m. 
Call Terry McNay 
813/725-1245 

• GEORGIA 

Atlanta Chapter 

Call Ron Skelton 
404/393-8764 

• ILLINOIS 

Cache Forth Chapter 

Call Clyde W. Phillips, Jr. 
Oak Park 
312/386-3147 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 

217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 

312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 

312/885-8092 



• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 

Fort Wayne Chapter 
Monthly, 2nd Wed., 7 p.m. 
Indiana/Purdue Univ. Campus 
Rm. B71, Neff Hall 
Call Blair MacDermid 
219/749-2042 

• IOWA 

Iowa City Chapter 

Monthly, 4th Tues. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

Central Iowa FIG Chapter 

Call Rodrick A. Eldridge 
515/294-5659 

Fairfield FIG Chapter 

Monthly, 4th day, 8:15 p.m. 
Call Gurdy Leete 
515/472-7077 

• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 

• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8922 

• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 

• MICHIGAN 
Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 

• MINNESOTA 



• MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Inst. 
Mag Conference Center 
Call Linus Orth 
816/444-6655 

St. Louis Chapter 

Monthly, 1st Tues., 7 p.m. 
Thornhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
Ellisville, MO 63011 

• NEVADA 

Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 
Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Call Rick Granfield 
505/296-8651 

• NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 

Hutchinson Hall 

Univ. of Rochester 

Call Thea Martin 

716/235-0168 

Rockland County Chapter 

Call Elizabeth Gormley 

Pearl River 

914/735-8967 

Syracuse Chapter 
Monthly, 3rd Wed., 7 p.m. 
Call Henry J. Fay 
315/446-4600 

• OHIO 

Athens Chapter 

Call Isreal Urieli 
614/594-3731 



MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m. Cleveland Chapter 

Odd Month, 1st Sat., 9:30 a.m. Cal1 Gar y Bergstrom 

Vincent Hall Univ. of MN 216/247-2492 

Minneapolis, MN Cincinatti Chapter 

Call Fred Olson Call Douglas Bennett 

612/588-9532 513/831-0142 



Dayton Chapter 

Twice monthly, 2nd Tues., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 

• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 

• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial Park 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 

• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 4th Sat., 10 a.m. 
Drexel University, Stratton Hall 
Call Melonie Hoag 
215/895-2628 

• TENNESSEE 

East Tennessee Chapter 
Monthly, 2nd Tue., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Turnpike, Oak Ridge 
Call Richard Secrist 
615/693-7380 

• TEXAS 

Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 
Permian Basin Chapter 

Call Carl Bryson 

Odessa 

915/337-8994 

•UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 



• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Don VanSyckel 
802/388-6698 

• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 2nd Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/860-9260 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 

• WISCONSIN 

Lake Superior FIG Chapter 

Call Allen Anway 
715/394-8360 
MAD Apple Chapter 
Contact Bill Horzon 
129 S. Yellowstone 
Madison, WI 53705 

FOREIGN 

• AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 

Contact Lance Collins 

65 Martin Road 

Glen Iris, Victoria 3146 

03/29-2600 

Sydney Chapter 
Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 



Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 Nalinnes 

Belgium 

071/213858 



• CANADA 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 

Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg. 
Rm. 312 

McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 

Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 

• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 

• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 

• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61) 44.03.06 

• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 



• HOLLAND 
Holland Chapter 

Contact: Adriaan van Roosmalen 
Heusden Houtsestraat 134 
4817 We Breda 
31 76 713104 

FIG des Alpes Chapter 

Contact: Georges Seibel 
19 Rue des Hirondelles 
74000 Annely 
50 57 0280 

• IRELAND 
Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 

• ITALY 
FIG Italia 

Contact Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

• JAPAN 

Japan Chapter 

Contact Toshio Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo, Bunkyo 113 
812-2111 ext. 7073 

• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 

• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 



SPECIAL GROUPS 

Apple Corps Forth Users 
Chapter 

Twice Monthly, 1st & 

3rd Tues., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 
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